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LIBSCLI_CALLBACK = CLI Callback Interface Proce 14.42 “19 :22:3 AX-11 Bliss-32 V4.0-74 Page i L 
14- 5 1982 96:36:2 ; VASLIB™ SR ROIL ich fea 642:1 . (1) | V 

608) ZTITLE “LIBSCLI_CALLBACK = CLI Callback Interface Styne? | ; 
Oe MODULE LIBSCLI_CALLBACK ( ' CLI Gat lbs k Procedure ; 
Booz gDENT = 'v04-000' ' File: LiBEL TEAL B32 Edit: STAN3009 3 
= Ps 

oe ! BEGIN : 
0007 : iP te nc RRR NR RC ST : 
'e © ; 

0009 1 !* Conve tGnt (c) 1978, 1980, 1982, 1984 » : 
0010 1 i DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. . ; 
Bota : - ALL RIGHTS RESERVED. * $ 
! * 3 

$018 1 !* THIS SOFTWARE IS Agi ed uct A LICENSE AND MAY BE USED AND og ba ® $ 
0014 1 !# LY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 3 
0015 1 !# LUSION OF T ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * : 
B08 1 !® COPIES THEREOF ay NOT B VIDED OR OTHERWISE MADE AVAILABLE TO ANY * 3 
001 1 !® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * : 
id : :* TRANSFERRED. * : 
'e * ; 

4 1 !e poe INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * : 
0021 1 !# SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT ® : 
4 ; ; ws CORPORATION. * : 
'e * 3 

0024 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * é 
0025 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. ® : 
$059 1 is : 
x ° 

o059 1 PITITITITI TILL LITLE LLL LLL LiL Li LLL titi. 3 
1! $ 

$080 1 3 
0031 1 !++¢ : 
0035 1 ! FACILITY: General Utility Library 3 
0035 1! 3 
ait: : ABSTRACT: : 
0036 1! This module contains callable procedures which allow user programs : 
sis 44 : . access the CLI callback facility. The procedures in this module : 
0039 1! LIBSGET_SYMBOL get value of a CLI symbol : 
0040 1! LIBSSET-SYMBOL set value of a CLI symbol : 
0041 1! LIBSDELETE_SYMBOL delete a CLI symbol 3 
sk 1! LIBSSET_LOGICAL set value of a supervisor mode 3 
0045 1! Logical name 3 
Boee 1! LIBSDELETE_LOGICAL delete a supervisor mode lo {gal name 3 
045 1! LIBSDISABLE_CTRL disable CLI out-of-band handl ng 3 
Bnee : LIBSENABLE_CTRL re-enable CLI out-of-band wet ng : 
Once ' : ENVIRONMENT: Runs only in USER mode - AST reentrant ; 
0050 1 | AUTHOR: Ralph 0. weber, CREATION DATE: 19-AUG-1981 i 
005¢ | MODIFIED BY: ; 
0084 1! 1-00 01 - Original. ROW 19-AUG-1981 | ; 
Be? : : 1-002 - — es = name > 255 characters error to LIBS_INVSYMNAM. | : 
8039 1 § 1-003 - Use Matec s _SRVDESC. Improve code. SBL 18-Dec-1981 : 


LApseh i CALLBAC LIBSCLI_CALLBACK = CLI Callback Interface Proce 19- gen-1 964 99:86:73 AX=11 atta Tate ee Page 8 


1-009 - Fix bug in way pass itemlist to callback. STAN 10-JUL-1984. 


VMSLIB.SRC LICAL.B8 
' - Correct all references to LIBSANAL YZE C. DOGP 31-Dec-1981 
3 8 fi 1: $2 tp rect BSECT defi nt tions Sarees 
6 ° 1 / - FY x re Ran. eto B32 to use “SRL is hy Lis TMH 14-Feb-1982 
61 1 3 I: - Allow symbol name ig oe with $ or 
6 006 : ; 8 - Use new callbacks to allow ‘temlists and SOL soFeb=1 i an 26-Feb-1984. 
1 ie 
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LIBSCLI_CALLBAC LIBSCLI_CALLBACK = CLI Callback Interface Proce 16-Sep-1984 02:22:3 AX-11 Bliss-32 V4 
y0e+000 p44 Ba 13:39:23 ¢ 8 


$ a 
Declarations 14-Sep-19 VMSLIB.SRCJLIBCLICAL.B352;1 (2) | 


> 66 0065 1 ZSBTTL ‘Declarations’ 

: Oo 066 1! 

; & 67 1 ! SWITCHES: 

: oe | 
: 4! a0r0 : SWITCHES ADDRESSING_MODE (EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); | 
NS 0072 1! 

; 74 0075 1 ! LINKAGES: 

t © 0074 1! 

; is Sor LINKAGE LIBSANALYZE_ SDESC_JSB_LINK = JSB (REGISTER=0; REGISTER=1,REGISTER=2) 

; 077 1 NOTUSED a Oe 10,11); 3 : | 
: 79 0078 #1 

; 80 0079 1! 

; 8 0080 1 ! TABLE OF CONTENTS: 

; § 0081 1! 

:; § 0082 1 

>; (84 0083 1 FORWARD ROUTINE 

; 0084 1 LIBSGET_SYMBOL, ! get value of a CLI symbol 
; 86 0085 1 LIBSSET_SYMBOL, ! set value of a CLI symbol 

; 87 0086 1  LIBSSETILOGICAL, i set value of a supervisor-mode | 
; 88 0087 1 ' Logical name 

; 0088 1 LIBSDELETE_LOGICAL, ! delete a supervisor-mode logical 

: Ww 0089 1 ' name 

; 0090 1 LIBSDISABLE CTRL, ! disable CLI out-of-band recognition | 
; 3 0091 1 LIBSENABLE_CTRL, ' re-enable CLI out-of-band recognition 

3 a Ob9 : LIBSS$BUILD_ SYMBOL _NAME ; ! build a good symbol name 

; 0094 1! 

; 0095 1 ! INCLUDE FILES: 

: 97 0096 1! 

.) 2 0097 1 

3 190 83 ! LIBRARY ‘SYSSLIBRARY:STARLET'; ! System symbol definitions 
s 01 0100 1 REQUIRE ‘SHRLIBS$:CLIMSG'; ! CLIS_ symbols 

; ie 0380 1 

; 0 0381 1! 

> 104 Oee¢ 1 ! MACROS: 

: 105 te 1! 

; 106 0384 1! MACRO MOVEDESC builds a S-type string descriptor at _T0 

: 107 Bape 1! which points to the same data area as that pointed to by | 
; 108 § 7, ; the string descriptor at _FROM. : since the _T 
; 109 1: descriptor will be used only by SYSSCLI which ignores the 
; lie 3 1! DTYPE and CLASS fields, only the LENGTH and POINTER fields 

3 1 94 : are built by MOVEDESC. 
° | 
: 118 M 03 1 MACRO MOVEDESC (_FROM, _TO) = 
s 1146 i] 3 1 N 

s 119 M $ 1 REGISTER 
: 116 m 0394 1 RET_STATUS = 0; 

3 (117 m 0395 1 RET_STATUS = LIBSANALYZE SDESC_R2 ( _FROM; 

: «#118 M 36 1 LOCK {_TO, DSCSW_LENGTA; , BYTE) 

: 119 m 0397 1 LOCK C710. DSCSA~POINTER; , BYTE) ); 

: 120 i] 38 1 IF NOT .RET_STATUS | 
s 21 m 03 1 
s 22 ™ 0400 1 RETURN (.RET_STATUS); 
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ALLBACK = CLI Callback Interface Proce 1 


i EQUATED SYMBOLS: 


EXECUTE, SHARE, PIC, ADDRE 
SHARE, PIC. ADDRE 
NOSHARE, PIC, ADD 
, NOSHARE, PIC, A 


ee 


EXTERNAL REFERENCES: 


tate 
LIBSANALYZE_SDESC_R2 : LIBSANALYZE_SDESC_JSB 
LIBSSCOPY_DxDx, 


LIBSSGET1_DD, 
LIBSSFREET_DD; 


Oe et tein: | 


TERNAL 
LIBSAB_UPCASE; 
EXTERNAL LITERAL 
L A 


8c 19:39:27 — WimstiessaeSc ect ica .082:1 


9mMMN 


: CLI Callback Routine 


LINK 
Analyze a string descriptor 
Copy strings of any type 
to any type. 
Get a dynamic string 
Free a dynamic string 


the string upcase table 


Condition value symbols 
Invalid argument 

Wrong number of arguments 
Illegal symbol name 

No such symbo 
Insufficient CLI memory 
Ambiguous symbol defined 
No CLI present 

Unexpected CLI error 


E 
NG_MODE (LONG RELA 
SING_MODE (LONG_RE 
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UIPSEL I CALLBAC LIBSCLI_CALLBACK = CLI Callback Interface Proce 1$-Sep-19 4 96:36:35 AX-11 Bliss-32 ve ras Page 5 
v04=- LIBSGET_SYMBOL = get value of a CLI symbol 14-Sep-1984 15:27:4 VMSLIB.SRCIJLIBCLICAL.B52;1 (3) 
s 7 450 1 XZSBTTL ‘LIBSGET_SYMBOL - get value of a CLI symbol’ 
3 174 451 1 GLOBAL ROUTINE CIBSGET_SYMBOL ( ' get value of a CLI symbol 
: 175 4 ¢ 1 SYMBOL: REF BLOCK [, BYTE), ! symbol string descriptor | 
3 179 4 1 RETBUF: REF BLOCK BYTE ' return value string descriptor 
3; 7 454 1 RETLEN: REF Yeeeoe f, words, ' no. bytes returned (opt.) 
; 178 Bee? 1 MODE: REF VECTOR C, LONG] ! symbol table searched (opt.) 
P4 = 
: 180 o¢37 1 
> «181 458 1 !44 
: 18¢ Be 28 : } FUNCTIONAL DESCRIPTION: 
; H+ Ree) 2 Hae Me SYMBOL gets the value of the specified CLI synbet and returns 
; a9 6¢ 1! t in the specified buffer. Before the actual search, however, the 
; «#4186 0465 1! specified symbol name is ayeaees so that it will better match symbol 
: «187 0464 1! names formed by the CLI. The local=-symbol table is scanned first for 
; 188 465 1! the symbol, and if no matching symbol is found there, the global- 
3; 189 466 1! symbo table is scanned. The tenets of the returned value and a mode 
; 190 0467 1! value, indicating the table in which the symbol value was found, are 
; 9 0468 1! opt tones ty returned when parameters to receive them are supplied in 
3 136 98 34 : } the calling sequence. 
3 194 0471 1! Numeric values are automatically translated to decimal strings before 
3 «6195 0472 1! being returned. 
> 196 0473 1! 
s 97 0474 1! The optional mode value can be one of: 
; 198 0475 1! LIBSK_CLI_LOCAL_SYM = 1 ==> Local symbol table name 
; 199 0476 1! LIBSK_CLI-GLOBAC_SYM = 2 ==> Global symbol table name 
: spo gore : These symbols are defined in S$LIBCLIDEF. 
; 202 0479 1 ! CALLING SEQUENCE: 
; 2035 0480 1! 
3; 204 0481 1! ret_status.wlc.v = LIBSGET_SYMBOL (symbol.rt.dx, retbuf.wt.dx 
; 205 0482 1! C, retlen.ww.r C, mode.wl.rJJ) 
: 206 0483 1! 
; 207 0484 1 ! FORMAL PARAMETERS: 
; 208 0485 1! . 
: 209 0486 1! symbol.rt.dx =- A ot is perece by descriptor, which contains the 
; 210 0487 1! symbol to be searched for. An upcased copy of this 
3 613 be8o : string will actually be used for the search. 
; $15 0490 1! retbuf.wt.dx - A string, passed by descriptor, into which the value 
3 $i% Be3) ! } of the symbol, if found, will be written. 
; $18 493 1! retlen.ww.r = An optional word which, if present, vill receive 
5 siz Reee : the length of the returned symbol value string. 
ieee 4h 2 0496 1! mode.wl.r - An optional longword which, if present, will receive a 
: 220 497 1! value indicating table in which symbol was found. 
3 $$) 498 1! Possible values are: 
3 ¢ 499 1! LIBSK_CLI_LOCAL_SYM ==> Local symbol table name 
3 $$7 B20 : LIBSK-CLI-GLOBAC_SYM ==> Global symbol table name 
s ges 0302 1 ! IMPLICIT INPUTS: 
; $$ 23 1! 
3 0504 1! NONE 
; $8 0505 1! 
; ae 0506 1 ! IMPLICIT OUTPUTS: 
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LL 
MBOL ~ get value of a CLI symbol 14-Sep-19 


BACK = CLI Callback Interface Proce 18-Sep-1984 0g: 38:3 Se te te i ss iecr 


NONE 

COMPLETION STATUS: (or ROUTINE VALUE:) 
SS$_NORMAL Normal successful completion 
LIBS_ INVARG Invalid argument 


BS_INVSYMNAM Invalid symbol name 
B- NOSUCHSYM No such symbol found 
B 


S$" INSCLIMEM Insufficient CLI memory 
I No CLI present to perform function 
BS"UNECLIERR Unexpected CLI Error 


SIDE EFFECTS: 


WARNING: 
Although this procedure performs some checks on the validity of 
ergs names passed to it, some symbol name considered valid by 

is procedure will be considered invalid by DCL. Callers of this 
procedure are responsible for insuring that symbol names passed to 
this procedure contain only alphanumeric characters. 


eerrr 
Pt bet be hme te 
a 
et 


ata 
=SY 
' 
i 
' 
' 
% 


BEGIN 
BUILTIN 
NULLPARAMETER; 
CAL 
CLI REQ "gs" : BLOCK CCLISC_SRVDESC, BYTEI, ! A CLI request block 
DYN-STRING : BLOCK (8, BYTE, ' Descriptor for dynamic string 


RETORN_ STATUS : BLOCK 2 Byte): ! A return status value 


'¢ 
t Initialize CLI Command request block. 


CHSFILL a. BL6¢ te Btn LI_REQ BLOCK); 


TSYM: 

BOL _NAME ( - SYMBOL DYN _STRING, 
cl K"CCLI$Q NAMDESC) 

IF ay .RETURN_STATUS itt aprock RETURR” orto: 


14 
Get CLI symbol value. 


RETURN_STATUS = SYSS$CLI (CLI_REQ_BLOCK); 


+ 
: Free dynamic string used for upcased symbol name. 


LIBSSFREE1_DD( DYN_STRING ); 


87 
88 
89 
90 
4 
98 
94 
95 
96 
97 
39 
00 
4! 
08 
04 
05 
06 
0 


7 
8 
9 
0 
4 
5 
6 
7 
8 
3 
0 
1 
2 
3 
4 
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ALLBACK = CLI Callback Interface Proce hese -1984 02:22:35 AX-11 Bliss-32 V4.0-74 
YMBOL = get value of a CLI symbol 1a-Sep-19 4 96:36:23 VMSLIB’SREILTBCL Tem 42:1 


! Process returned symbol value and requested optional values. 
IF_.RETURN_STATUS 
THEN 


BEGIN ae 
CLI_DESC : REF BLOCK [8 BYTE}; 
CLI_DESC = CLI_REQ BLOCK CCLI$Q_VALDESC) 
RETORN STATUS = LIBSSCOPY DXOX T.CLI_DESC, .RETBUF); 
AMETER (3) AND .RETURNTSTATUS 


IF NOT NULLPAR 

THEN 

BEGIN 

LOCAL 

ADDRESS, 
LENGTH; 

LIBSANALYZE_SDESC_R2 (.RETBUF; LENGTH, ADDRESS ); 

RETLEN COJ = MINU (.LENGTH, .CLI_DESC CDSCS$W_LENGTH)); 

IF NOT NULLPARAMETER (4) 


MODE COJ = .CLI_REQ_BLOCK CCLISB_RQSTAT); 


ELSE IF (.RETURN_STATUS CSTSSV_FAC_NOJ EQL CLIS_FACILITY) 
RETURN, STATUS = 
SELECTONE .RETURN STATUS OF 
CLIS_UNDSYM) : LIB$_NOSUCHSYM; 
CLIS"BUFOVF) : LIBS-INSCLIMEM: 
CLIS INVREQTYP : LIBSINOCLI; 
COTHERWISE : LIBS"UNECLIERR; 
END; 
RETURN (.RETURN_STATUS); 
END; ! End of routine LIBSGET_SYMBOL 
-TITLE LIBSCLI_CALLBACK LIBSCLI_CALLBACK - CLI Callbac 
Interface Proce 
IDENT \V04-000\ 
-EXTRN SYSSCLI, LIBSANALYZE_SDESC_R2 
“EXTRN LIBSSCOPY DXDX, LIBSSGET! OD 
-EXTRN LIBSSFREET_DD, LIBSAB_UPCASE 
-EXTRN LIBS_INVARG, LIB$_WRO RG 
-EXTRN LIBS_INVSYMNAM, LTBS_NOSUCHSYM 
-EXTRN LIBS-INSCLIMEM, LIBS-AMBSYMDEF 
-EXTRN LIBSINOCLI, LIB$_UNECLIERR 
-PSECT _LIBSCODE,NOWRT, SHR, PIC.2 
003c¢ 00000 -ENTRY LIBSGET_SYMBOL, Save R2.R3,R4,R5 
5E AG ac 9E 00002 HOVAB =92(SP) 
6E 00 2C 00006 MOVCS #0, (SPS, #0, #84, CLI_REQ_BLOCK 


LRGSEL J CALLBAC LIBSCLI_C 
V04=- LIBSGET_SYMBOL = get value of a CLI symbol 


08 A 00D 

08 AE 08 8 Sor 

09 AE A 8 bei? 
C AE OF 4 

4 AE OF 1A 

4 Ag DD 00010 

0000v CF g Fe 0 9 
3 9 D 0 

9 P) 4 0028 

08 AE YF 00028 

000000006 99 1 Fe 00 3 
5 0 00 900 

E DD 00038 

000000006 00 3 FB QO03A 

49 3 £9 00041 

54 14 AE 9E 00044 

08 aC DD Bapee 

54 DD 00048 

000000006 00 02 FB 00040 

53 50 DO 00054 

03 6C 91 00057 

20 1F OOOSA 

OC AC 05 0005C 

1 13 0005F 

18 53 €9 00061 

5 08 AC dO 00064 

000000006 00 16 00068 

51 64 10 00 ED sai 3 
03 1€ 0007 

51 64 3C 00975 

oc =6BC 51 BO 00078 

04 6C 91 0007C 

50 1F Q007F 

10 AC 05 00081 

4B 13 00084 

10 BC OB AE 9A 00086 

44 11 00088 

03 53 oc 10 ED 00080 

3D 12 00092 

00038140 8F 53 Di 00094 

09 12 00098 

53 000000006 8F 00 0009D 

8 11 QO0A4 

00038018 8F D1 QO0A6 

9? 12 QOOAD 

53 000000006 8F DO QODAF 

19 11 00086 

00038822 = &F 53 DI gues 

09 12 O00BF 

53 000000006 BF DO 000C1 

7 11 0008 

53 000000006 HH DO OOOCA 

50 3 DO 00001 

04 00004 


; Routine Size: 213 bytes, Routine Base: _LIBSCODE + 0000 
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AX-11 Oi rearis V4.0-74 
VMSLIB.SRCJLIBCLICAL.B32;1 

#5, CLI_REQ_BLOCK 

#16, CLT REQ BLOCK+1 

CLI“ REQ BLOCR+4 

DYN” STRING 

SYMBOL 

#3, LIBS$BUILD_SYMBOL_NAME 

RO, RETURN STA 

RETURN STATUS, 4$ 

CLI_REQ_BLOCK 

#1, SYSSCLI 

ae RETURN_STATUS 

#1, LIBSSFREE1_DD 


1 
RETURN_ STATUS, 
CLI_REG_BLOCK412, CLI_DESC 
RE TBUF 

cL1_DES¢ 

#2, LIBSSCOPY_DXDx 

RO, RETURN_STATUS 

(AP), #3 


12 (AP) 
RETURN_STATUS, 2$ 


e 


LIBSANALYZE SDESC_R2 
#0, #16, (CCI_DEST), R1 
(CLI_DESC), R1 

Ri, GRETLEN 

(AP), #4 


@DwDnr—r 
mmne 
“4 


16(AP) 

ert _REQ_BLOCKSS, aMODE 

#16, #12, RETURN_STATUS, #3 
RETURN_STATUS, #229696 
WLIBS_NOSUCHSYM, RETURN_STATUS 
RETURN_STATUS, #229400 
#LIBS_INSCLIMEM, RETURN_STATUS 
RETURN_STATUS, #231458 
#LIBS_NOCLI, RETURN_ STATUS 


#LIBS_UNECLIERR, RETURN_STATUS 
RETURR_STATUS, RO 
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“SYMBOL = set value of a CLI symbol 14-Sep-19 VMSLIB.SRCILI 
*"LIBSSET_SYMBOL = set value of a CLI symbol’ 
ROUTINE CIBSSET SVAROL ( ' set value of a CLI symbol 
SYMBOL: REF BLOCK C, BYTE), ' symbol string descriptor 
VALUE: REF BLOCK f- BYTE], ! desired symbol value descriptor 
MODE: REF VECTOR L, LONG ! desired symbol table (opt.) 


i FUNCTIONAL DESCRIPTION: 


mode argument is omitted, t 


This routine defines a CLI symbol giving it the value specified by 
call parameter value. Before the actual definition, however, the 
specified symbol name is upcased so that it will better match symbol 


names formed by the CLI. An attempt to define a CLI symbol which 


already exists results in the value of that symbol being updated to 
the new value. The optional mode argument gpect iiee a code 
(LIBSK_CLI_LOCAL_SYM or LIBSK_CLI_GLOBAL_SYM) which names the eyes 
table on which the for ereperes Operation will be performed. f the 
e the local symbol table is used. 


The optional mode value can be one of: 
LIBSK_CLI_LOCAL_SYM = 1 ==> Local symbol table name 
LIBSK_CLI-GLOBAC_SYM = 2 ==> Global symbol table name 
These symbols are defined in $LIBCLIDEF. 


CALLING SEQUENCE: 


ret_status.wic.v = LIBSSET_SYMBOL (symbol.rt.dx, value.rt.dx 
C, mode.rl.rJ) 


FORMAL PARAMETERS: 


symbol.rt.dx - A a assed by descriptor, which contains the 
o be defined or modified. An upcased copy of 


symbol 
this string will actually be used for the define 
or update operation. 


value.rt.dx =-A opr ing. passed by descriptor, containing the value 
ven 


to be g to the symbol. 


mode.rl.r - An optional longword which, if present, contains a 
value indicating into which table the symbol is to be 


placed. If this parameter is omitted, the local 

symbol table is used. 

Possible values are: 
LIBSK_CLI_LOCAL_SYM = oca 
LIBSK_CLI-GLOBAC_SYM = Lobal symbol table name 


IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
COMPLETION STATUS: (or ROUTINE VALUE:) 


lL symbol table name 
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LIBSCLI_CALLBAC LIBSCLI_CALLBACK = CLI Callback Interface Proce 1-56 -1984 02:22:3 AX-11 Bliss-32 V4.0-74 
Oe s600 LIBSSET_SYMBOL = set value of a CLI symbol 12-80 8- 1382 96:58:23 VMSLIB. Reiiisct tea 69251 
> 383 $38 zz 
; «384 660 1! SS$_NORMAL Normal successful compietion 
; Je? 661 1! LIBS_INVARG Invalid argument 
; He] re] 1! LIBS_INVSYMNAM Invalid symbol name 
; we 665 1! LIBS_INSCLIMEM Insufficient CLI memory 
; 388 664 1! LIBS_AMBSYMDEF ong ge CLI —— defined | 
; 389 665 1! LIB$_NOCLI No CLI present to perform function 
; 390 208 1! LIBS_UNECLIERR Unexpected CLI Error 
; «(391 0667 1! 
; 39 bees 1 ! SIDE EFFECTS: 
: 392 0690 1 | A CLI symbol i ted dated 
3 ! symbol is created or updated. 
: 395 0671 1 | r . 
>; 396 0672 1! WARNING: 
; Wr 0675 1! Although this procedure performs some checks on the validity of 
; Te 0674 1! yee names passed to it, some symbol name considered valid by 
; 399 0675 1! this procedure will be considered invalid by DCL. Callers of this 
; 400 0676 1! procedure are responsible for insuring that symbol names passed to 
; 401 0677 1! this procedure contain only alphanumeric characters. If this 
; 40 0678 1! procedure is used to create symbols whose names contain invalid 
; 40 0679 1! characters, deleting those symbols can be accomplished by logging 
; 404 0680 1! out and logging back in. 
: 405 0681 1! 
5 0682 1 !-- 
: 40 0683 1 
; 408 0684 2 BEGIN 
: 409 0685 2 
; 410 0686 2 ILTIN 
s 611 0687 2 NULLPARAMETER; 
; ci¢ 0688 2 
3 (41 0689 2 OCAL 
3; 414 0690 2 CLI_REQ_ BLOCK : BLOCK CCLISC_SRVDESC, BYTE], ! A CLI request block 
> 415 0691 2 DYN-STRING : BLOCK C8, BYTEJ> ! Descriptor for dynamic string 
: 416 0692 2 RETORN_STATUS : BLOCK (4, BYTE); ! A return status value 
; 417 0693 2 
: 418 0694 2 
: 419 0695 2 !+ 
: 420 0696 2 ! Initialize CLI Command request block. 
; 421 0697 2 !- 
: 422 0698 2 CHSFILL (0, CLISC_SRVDESC, CLI_REQ BLOCK); 
> 423 0699 CLI_REG_BLOCK CCLI$SB_ROTYPE] ="CLISK_CLISERV; 
> 424 0700 BEGIN 
3; 425 0701 LOCAL 
; $38 144 STRING : REF BLOCK (8, BYTE); 
: 427 70 STRING = .VALUE; 
A os fo 3 IF STRING COSC$wW_LENGTH) GTRU 255 THEN RETURN LIBS_INVARG; 
: rk 0706 MOVEDESC ( .VALUE, CLI_REQ BLOCK CCLIS$Q_VALDESC] ); 
3: 431 0707 RETURN_STATUS = Liss$BuTLD SYMBOL_NAME( [SYMBOL, DYN_STRING, 
; 43¢ 0708 1 REG BLOCK CCLI$Q NAMDESC) ); 
; $37 464 IF NOT .RETURN_STATUS TREN RETURN .RETURR_STATUS; 
: 435 14h + 
; $3 orig : Setup service code indicating which symbol table. 
: 438 0714 CLI_REQ_ BLOCK CCLIS$W_SERVCOD] = 
3; 439 0715 BEGIN 
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2 V5 Corse 
VMSLIB.SRCJLIBCLICAL.B52;1 
IF NULLPARAMETER (3) 


CLISK_DEFLOCAL 


ELS 
CASE .MODE (0) og LIBSK_CLI_LOCAL_SYM 
eT LIBSK-CLI-GLOBAC_SYM OF 
LIBSK_CLI_LOCAL_SYM]. : CLISK Ber LOCA 
LIBSK cL}.6 GLOBAC_SYM] : CLISK-DEFGLOBA 
OUTRANGE : RETURN (LIBS_ INVARG) ; 
END; 


'¢ 
i Set CLI symbol. 


lo 
RETURN_STATUS = SYSSCLI (CLI_REQ_BLOCK); 


1+ 
Free dynamic string used for upcased symbol name. 


LIBSSFREE1_DD( DYN_STRING ); 


14 
- Adjust error return status, if any. 


LF NOT .RETURN_STATUS AND (.RETURN_STATUS CSTS$V_FAC_NOJ EQL CLI$_FACILITY) 
RETURN, STATUS = 
SELECTONE .RETURN_STATUS OF 
LIB$_INSCLIMEM; 
YMDJ : LIBS" AMBSY YD ; 
NVREQTYP] : LIBS$~NOCLI 
ISE) : L1B$~ ~UNECLIERR: 


End of routine LIBSSET_SYMBOL 


003c 00000 .ENTRY LIBSSET_SYMBOL, Save R2,R3.R4,R5 
AG AE 9E 00002 HOVAB - 
< 00 2c 9006 MOVCS #0, (SPS, #0, #84, CLI_REQ_BLOCK 
0 90 i MOVB #5, CLI_REQ gpock 
08 ac D 0013 MOVL VALUE, STRIN 
: 81 001 CMPW 36s (STRING), #255 
D 1A 0001C BGTRU 3$ 
0 08 AC 00 6 3 MOVL VALUE, RO 
000000006 00 16 0002 JSB LIBSANALYZE_SDESC_R2 
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0603 
0698 | 
0699. 
0703 
0704 
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Ljestt -CALLBAC LIBSCLI_CALLBA ck - CLI Callback Interface Proce 16-Se 
v04-0 LIBSSET-SYMBOL = set value of a CLI symbol 14-Se 
\s ae y bp 09 8 
of 5 ES dooss 
4 000 
8 AE 9F 00034 1$: 
4 AE 99F 00037 
04 AC DD QOO3A 
0000v gf 9 Fe 0030 
D ek 
4 5 9 0004 
6C 91 00048 
16 1F 00048 
oc =A re 004D 
11 13 00050 
01 01 oc 8 Ct Bo 26 
0011 000C 00057 2$: 
50 00000000G 8F DO 0005B 3$: 
04 83066 
50 02 00 000635 4$: 
03 11 00066 
50 03 DO 00068 5$: 
09 AE 50 80 0006B 6$: 
08 AE 9F QO06F 
000000006 00 01 FB 00072 
52 50 D0 si 184 
5E DD 0007C 
000000006 00 01 FB OOO7E 
44 52 €8 00085 
03 52 oc 10 ED 00088 
3D 12 00080 
00038138 8F 52 D1 O008F 
4 12 00096 
52 000000006 8F DO 00098 
$8 11 Q009F 
000381A0 8F 2 D1 OO0A1 7$: 
9 is 000A8 
52 00000000G 8F DO QOOAA 
19 11 00081 
00038822 + =8F 52 01 Boe; 8$: 
09 12 QOOBA 
52 000000006 8F 00 0008 
07 11 000C35 9$: 
25 000000006 He DO 8 OCS 10$ 
5 2 bO OOOCC 11$ 
04 OOOCF 


; Routine Size: 208 bytes, Routine Base: _LIBSCODE + 00D5 


Be 19:38:07 


AX-11 Bliss-32 V4.0- 


I_REQ_BLOCK+12 
rhe” =BLOCK+16 


BLOCK+4 
ING 


S$SBUILD_SYMBOL_NAME 
ETURN_STA ad 

URN status, 98 

),# 


o wo a 


C 
C 
-) 
JR 
“S 
0 
L 
R 


#L18$_INVARG, RO 
eee RO 
es. RO 
RO cL _REQ_BLOCK+1 
cLiR BLOCK 
- § et I 
RETURN_STATUS 
LIBSSFREE1_DD 
Re fur RN_STATUS, 11 
, #72, RETURN_STATUS, #3 
RETURN_STATUS, #229688 


#LIBS_INSCLIMEM, RETURN_STATUS 


11$ 
aaa STATUS, #229792 
a 18S. AMBSYMDEF, RETURN_STATUS 


R qURN_ STATUS, #231458 


mies. NOCLI, RETURN_STATUS 
#LIBS UNECLIERR RETURN_STATUS 
RETURR_STATUS, RO 


os 


P 7K 
VMSLIB.SRCJLIBCLICAL B52;1 
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yOe2000 CIBSDELETE SYMBOL - delete a CLI symbol 1ereeen 1386 99:39;47 — Hmstie srediiacy tea 6$2;1 
: 483 0738 1 ZSBTTL *LIBSDELETE_SYMBOL = delete a CLI symbol’ 
> 484 0759 1 GLOBAL ROUTINE UJSSOELETE _sYRGOL ( ! set value of a CLI symbol 
> 485 0760 1 SYMBOL: REF BLOCK [, aviv ! symbol string descriptor 
; 486 0761 1 MODE: REF VECTOR C, LONG ! desired symbol table (opt.) 
; 487 B78 1 d= 
; 488 0765 1 
: 489 0764 1 !++ 
$ re 870? } } FUNCTIONAL DESCRIPTION: 
; 49 O76? 1! This routine deletes a CLI symbol. Before the actual deletion 
; 49 0768 1! however, the specified symbol name is upeeeee so that it will better 
> 494 879° » match symbol names formed by the CLI. The set tenet mode orgumens 
> «4495 770 1! specifies a code (LIBSK_CLI_LOCAL_SYM or LIBSK_CLI_GLOBAL_SYM) which 
>; 496 0771 1! names the symbol table on which the delete operation will be performed. 
; pet Orie ; : If the mode argument is omitted, the the local symbol table is used. 
; 499 0774 1! The optional mode value can be one of: 
; 500 0775 1! LIBSK_CLI_LOCAL_SYM = 1 ==> Local symbol table name 
; 501 0776 1! LIBSK[CLI-GLOBAC_SYM = 2 ==> Global symbol table name 
: 206 0777 1! These symbols are defined in $LIBCLIDEF. 
; 0778 1! 
> 504 0779 1 ! CALLING SEQUENCE: 
; 505 0780 1! 
: 309 149 : ret_status.wic.v = LIBSDELETE_SYMBOL (symbol.rt.dx C, mode.rl.rJ) 
; 508 $788 1 ! FORMAL PARAMETERS: 
; 509 0784 1! 
s 3130 0785 1! symbol.rt.dx =- A ose" assed by descriptor, which contains the 
3 31) 0786 1! symbol to be defined or modified. An upcased copy of 
; aig 1444 ' this string will actually be used for the deletion. 
: 514 0789 1! mode.rl.r - An optional longword which, if present, contains a 
s 315 0790 1! value age te from which table the symbol is to be 
; 516 0791 1! deleted. If this parameter is omitted, the local 
3 «37 0792 1! symbol table is used. 
; 318 0795 1! Possible values are: 
3 519 0794 1! LIBSK_CLI_LOCAL_SYM ==> Local symbol table name 
; 239 145) ; LIBSK_CLI-GLOBAC_SYM ==> Global symbol table name 
: See 0797 1 ! IMPLICIT INPUTS: 
3 tes 0798 1! 
3; 524 0799 1! NONE 
3 3es 0800 1! 
3 2$8 801 1 ! IMPLICIT OUTPUTS: 
s der 802 1! 
: jee 0803 1: NONE 
3 26? 0804 1! 
3 239 Bape ! : COMPLETION STATUS: (or ROUTINE VALUE:) 
; 236 $80 1! SS$_NORMAL Normal successful completion 
3 33 0808 1! LIBS_INVARG Invalid argument 
3; 534 0809 1! LIBS_INVSYMNAM Invalid symbol name 
3 dae 0810 1! LIBS_NOSUCHSYM No such symbol found ; 
; 536 0811 1! LIB$_NOCLI No CLI present to perform function 
; jor ttt 1! LIBS_UNECLIERR Unexpected CLI Error 
; 538 0813 1! 
; 539 0814 1 ! SIDE EFFECTS: 
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LIBSCLI_CALLBAC LIBSCLI_ CALLBACK = CLI Callback Interface Proce 16-Sep-1984 02:22:35 AX-11 Bliss-32 V4.0-74 
Oe 000 LIBSDELETE_SYMBOL = delete a CLI symbol 14-Sep-1984 96:8 247 WMSLIB SRE SCL ICAL 69251 
NE i A CLI bol is deleted 
: symbol is deleted. 
$817 1! 
pais sf WARNING: 
5 0819 1! Although this procedure performs some checks on the validity of 
88 0 1! syabot names passed to it, some symbol name considered valid by 
4 ‘hk this procedure will be considered invalid by DCL. Callers of this 
08 ¢ 1! procedure are responsible for insuring that symbol names passed to 
548 08 1! this procedure contain only alphanumeric characters. 
549 0824 1! 
550 0825 1 !-- 
551 8 § 1 
226 8 BEGIN 
55 0828 
554 14 BUILTIN 
555 0830 NULLPARAMETER; 
556 0831 
557 bees LOCAL 
558 083 CLI_REQ BLOCK : BLOCK CCLISC_SRVDESC, BYTE], ! A CLI request block 
559 0834 DYN_STRING : BLOCK (8, BYTE) ! Descriptor for dynamic string 
560 0835 RETORN_STATUS : BLOCK (4, BYTE); ! A return status value 
561 0836 
20g 0837 
56 0838 + 2 
208 +484 Initialize CLI Command request block. 
566 0841 CHSFILL (0, CLISC_SRVDESC, CLI_REQ BLOCK); 
567 084 RETURN_STATUS = LIBS$BUILO_SYMBOL_RAME( .SYMBOL, DYN_STRING, 
568 084 2 1_REG_BLOCK CCLI$Q_NAMDESC] ); 
569 0844 2 IF NOT .RETURN_STATUS TREN RETURN .RETURN STATUS; 
TA 0B6? 2 CLI_REQ_BLOCK [CCLISB_RQTYPE] = CLISK_CLISERV;: 
ate 084? + 
27 Once : Setup service code indicating which symbol table. 
575 0850 CLI_REQ_BLOCK CCLISW_SERVCOD) = 
576 0851 
577 ttt IF NULLPARAMETER (2) 
578 085 
579 0854 CLISK_DELELCL 
580 0855 
581 0856 CASE .MODE CO] FROM LIBSK_CLI_LOCAL_SYM 
AY th " TO LIBSK-CLI-GLOBAC_SYM OF 
584 6839 LIBSK_CLI_LOCAL_SYM]_ : CLISK_DELELCL; 
585 0860 LIBS$K CL {GLOBAL _SVAI : CLISK DELEGBL; 
586 0861 OUTRANGE RETURN (LIB$_INVARG); 
587 Bees TES 
588 86 END; 
589 864 
590 865 + 
eps 8 Delete CLI symbol. 
338 0 08 RETURN_STATUS = SYSSCLI (CLI_REQ_BLOCK); 
296 83 0 + , 
596 871 ! Free dynamic string used for upcased symbol name. 
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ALLBACK = CLI Callback Interface Proce 1B-sep-19 4 ‘@ ' $6: i3 AX-11 Bliss-32 V4.0- 
E_SYMBOL = delete a CLI symbol 14-Sep-1984 VMSLIB.SRCILIBCLIC 
LIBSSFREE1_DD( DYN_STRING ); 


'4 
Adjust error return status, if any. 


A «RETURN_STATUS AND (.RETURN_STATUS CSTS$V_FAC_NO] EQL CLIS_FACILITY) 
RETURN_STATUS = 
SELECTONE .RETURN_STATUS OF 


ET 
CLIS UND DSYM) : LIB$ -NOSUCHSYM:; 
CLI$ INVREQTYP3 : LIBS$"NOCLI; 
OTHERW LIBS ~UNECLIERR: 
TES 
END; 
RETURN (.RETURN_STATUS); 
END; ! End of routine LIBSDELETE_SYMBOL 
063c 00000 .ENTRY LIBSDELETE_SYMBOL, Save R2,R3,R4,R5 
5E AG AE 9E 00002 OVAB -92(SP), § 
00 6E 00 2C 00006 MOVCS #0, (SP), #0, #84, CLI_REQ_BLO‘K 
08 AE 0000 
OC AE 9F OOOOF PUSHAB CLI_REQ_BLOCK+4 
046 AE OF 00012 PUSHAB DYN~STRING 
04 aC DD 00015 PUSHL SYMBOL 
0000v CF 03 FB 00018 CALLS #3, LIBS$BUILD_SYMBOL_NAME 
52 50 pO 0001D MOVL RO, RETURN STATUS 
76 52 «£9 99020 BLBC RETURN STATUS, 7$ 
08 AE 05 90 00023 MOVB * cll REQ_BLOCK 
02 6C 91 00027 CMPB tab) ° 
16 1F OO02A BLSSU 
08 Ac b3 o00¢c TSTL 8 (AP) 
7 «1 O0¢F BEQL 
01 01 08 BC CF 00031 CASEL @MODE, #1, #1 
0011 000¢ 00036 1$ . WORD $-18.- 
50 000000006 8F DO 0003A MOVL § #LIBS_INVARG, RO 
04 90041 RET 
50 08 dO 9k 23: MOVL #11, RO 
03 11 0004 BRB 4$ 
50 OC D0 00047 3$: MOVL 12, RO 
09 «AE 50 BO O004A 4$: MOVW cul _REQ_BLOCK+1 
08 AE 9F OO04E Pl'SHAB clk BLOCK 
000000006 00 01 FB 0051 CALLS sits ery 
52 50 DO 00058 MOVL RO: RETURN_STATUS 
SE DD 0038 PUSHL SP 
000000006 99 01 FB 050 CALLS LIBSSFREE1_ p 
2 52 £8 00064 BLBS Re fun NOS TATUS 
52 0c 10 ED 00067 CMPZV 6, RETORN® STATUS, #3 


Br BS251 
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/LIBSCLI_CALLBAC LIBSCLI_CALLBACK = CLI Callback Interface Proce hese $1984 02:22:35 AX-11 Bliss-32 V4.0-74 P 17) 

“Ybe2000 LIBSDELETE_SYMBOL - delete a CLI symbol 14-Sep-1984 06:55:29 VMSLIB.SRCJLIBCLICAL.B32;1 ~~ (5) | 

| 12 0006C BNEQ 7$ ; | 

00038140 8F g D1 Hi CMPL RETURN_STATUS, #229696 : 0884 | 

52 000000006 i 06 907 MOVL HL IBS_NOSUCHSYM, RETURN, STATUS ; | 

00038822 BF 5 D4 00 " 5$ CMPL RETURN, STATUS, #231458 > 0885 | 

| 52 000000006 F 06 0 MOVL #L 1B$_NOCLI, RETURN_STATUS : 

| 52 000000006 8F D6 09 $$: MOVL § #LIB$_UNECLIERR, RETURN_STATUS + 0886 

2 D0 00099 7$: MOVL § RETURN_STATUS, RO : 0890 

| 04 0009C RET + 0892 
|; Routine Size: 157 bytes, | Routine Base: _LIBSCODE + O1A5 
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CALLBACK = CLI Callback Interface Proce 16-Sep-1984 96:36:38 AX-11 Oi reer ie a) ges 
LOGICAL = set supervisor mode logical n 14-Sep-1984 15:27:4 VMSLIB.SRCJLIBCLICAL.B52;1 
ZSBTTL "LIBSSET_LOGICAL = set supervisor mode logical name’ 
GLOBAL ROUTINE CIBSSET LOGICAL ( ' set supervisor mode logical name 

LOGNAME : REF SBBLOCK, ! logical name a descriptor 

VALUE : REF S$BBLOCK, ! equivalence name string descriptor 

ABNAM : REF $BBLOCK ! Logical name table 

ATTR _—: REF $BBLOCKE4), i attributes 

ITMLST REF SBBLOCK ! Address of itemlist 


lee 


i FUNCTIONAL DESCRIPTION: 


This routine provides a method by which a peat, Sag bo pp program can 
creace/modify supervisor mode logical names. fhe logical name given 

by ogname is created or modified to have the equivalence name 

specified by value. 

The user may specify attributes for the logical name and may 

specify which ogical name table is to be used. 

Instead of speci ying a single eyerresense string, via VALUE, 

the caller may specify an item List to give multiple equivalence strings. 


The STRNLNM system service can be used to obtain the value of 


supervisor mode logical names. The routine is equivalent to the ASSIGN 
or DEFINE DCL command. 


CALLING SEQUENCE: 


ret_status.wic.v = LIBSSET_LOGICAL ( 
lLogname.rt.dx 
C, value.rt.dxJ 
C, tabnam.rt.dx] 
C, attr.rlu.r] 
C, itmlst.ra.r)) 


FORMAL PARAMETERS: 


lLogname.rt.dx - A string, passed by descriptor, which contains the | 
supervisor mode logical name to be created or modified. 


value.rt.dx =-A abe tng. passed by descriptor, specifing the value 
to be 9 ven to the supervisor mode logical name, 
If omitted, an itemlist must be present to specify the 
value(s) of the logical name. 


tabnam.rt.dx - Name of the table in which to create the logical name. 
If omitted, the LNMSPROCESS table is used. 


attr.rlu.r - Logical name attributes. See the description of 
the system service SCRELNM for more details. 
Currently available attributes are 
LNMSM_CONFINE and LNMSM_NO_ALIAS. ‘ 
If omitted, no special attributes are established. 
However, if no table or itemlist is specified 
then the attribute LNMSM_CRELOG is defaulted in. 


If no itemlist is specified, then the translation 
attributes LNMSM_CONCEALED and LNMSM_TERMINAL may 
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| LAPSE 1 .CALLBAC LIBSCLI_CALLBACK = CLI Callback Interface Proce 1S-sep-19 4 09:36:39 AX-11 Ot lea te V4.0-74 Page 19° 
_Vv04-0 LIBSSET_LOGICAL = set supervisor mode logical n 14-Sep-1984 15:27:4 VMSLIB.SRCJLIBCLICAL.B52;1 (6) 
(3 «67 320 } | also be specified here, They apply to the 
3; $67 951 1! equivalence string string specified by the VALUE 
3 678 93¢ 1 / parameter. 
3 679 09 1; 
(3 680 0954 1! If an itemlist is specified, then the itemlist will 
'> 681 0955 1! contain the translation attributes for each 
is ye 8329 ! equivalence string in the itemlist. 
13 684 0958 1: itmlst.ra.r The address of an item List describing the 
/3; 685 0959 1! equivalence name(s) for this logical name. ‘ 
3 686 0960 1! See the description of the SCRELNM system service 
3 pet sd ; for the format and meaning of the item List. 
rr 689 0965 1! If omitted, the logical name will have just one 
; o30 Baee ; } value, as specified by the VALUE parameter. 
; 69 0966 1! Either VALUE or ITMLST must be specified. 
; 69 0967 1! If neither are specified, the LIBS_INVARG 
; 694 0968 1! error is produced. 
; #695 0969 1! 
; 696 9970 1! If both are specified, then the VALUE parameter 
; 697 0971 1! is ignored. In this case, logical name 
; 698 0972 1! attributes are permitted, but translation 
: 699 0973 1! attributes specified in the ATTR parameter 
: 700 0974 1! will be ignored (since these will appear in the 
s TH 0975 1! itemlist). 
: 702 0976 1! 
; 703 0977 1! The ITMLST parameter is only needed in the case where 
; 704 0978 1! ou wish to create multiple equivalence strings 
3 Te 0979: «1:! or a single iogical name (i.e. a search List). 
: 706 0980 1! 
; 707 0981 1 ! IMPLICIT INPUTS: 
: 708 0982 1! 
; 709 0983 1! It is assumed that the logical name table specified alreauy exists. 
; 710 0984 1 | 
: 7 985 1 ! IMPLICIT OUTPUTS: ; Ri 
a re 986 1! 
3 713 0987 1! NONE 
: 714 0988 1! 
; i$ 0989 1 ! COMPLETION STATUS: (or ROUTINE VALUE:) 
: 716 0990 1! : 
; 77 ovr, Fi SS$_NORMAL Normal successful completion 
; 718 0992 1! SS$_SUPERSEDE Previous logical name replaced (success) 
; 719 993 1! SS$_ACCVIO lLogname or value cannot be read 
3 620 994 1} SS$~1VLOGNAM Logname or value contains more than 255 characters 
3 fel 0995 1! SS$_BADPARAM One or more arguments had a bad value. 
g 136 0996 1! For example, an unknown bit was specified in | 
Fe 0997 1! the attributes parameter. 
: 726 0998 1! Note that if an item list is specified, 
.° fas 0999 1! then translation attributes (if any) must 
: 726 10C0 1! appear in the item List and may not appear 
s: Jar 1001 17! in the ATTR parameter. Only logical name 
5 768 1002 1! attributes may appear in the ATIR parameter 
; ¢ 1005 1! in that case. , 
; 730 1004 1! SS$_NOLOGNAM The specified logical name table does not exist. 
3 Yo} ite ee SS$_NOPRIV The caller lacks the necessary privieleges | 
: 32 1006 1! to create the logical name. 
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n BSCLI_CALLBAC LIBSCLI_CALLBACK = CLI Callback Interface Proce 16-Sep-1984 02:22:3 AX-11 Bliss-32 V4.0-74 Page 20. LIBS 
‘ybe2600 LIBSSET_LOGICAL = set supervisor mode logical n 1228671382 96:36:23 VMSLIB.SRC (iscl fem 68231 . (6) | v04- 
3 733 1007 1! SS$_TOOMANYLNAM Logical name translation of the table name exceeded 23) 
(3 136 1 08 1! the allowable depth (10 translations). 211 
13 735 190 1! $S$_DUPLNAM Attempt to create a logical name that conflicts | : 11 
lis 2 g 1010 1! with a logical name created at a higher access mode 211 
li; 7 1011 1 and which had the LNMSM_NO_ALIAS attribute. | 21) 
i; 738 1018 1! SS$_EXLNMQUOTA Exceeded logical name space quota. 21 
3 (739 1013 1} SSS" INSFMEM Insufficient dynamic memory. 231 
i; 740 1014 1! LIBS_INVARG Invalid rguaent. Neither a VALUE nor an ITMLST Ba 
ee | 1015 1! was specified. i 2 
: 74 1016 1! Or LOGNAME was omitted. 2 1 
; 74 1017 1! LIB$_NOCLI No CLI present to perform function | 3; 7) 
(3 744 1018 1! LIBS_UNECLIERR Unexpected CLI Error ee il 
(3) 6745 1019 1: LIBS_WRONUMARG Wrong number of arguments. Either fewer than two i 
it 246 1920 arguments or more than 5 arguments were specified. : i 
i 748 loge 1 { SIDE EFFECTS: at 
: 750 1024 1! A supervisor mode logical name is created or modified. : 11 
ta 1025 1! 3 3) 
; $88 1097 1 a 
: HR 1 Epos : 1] 
i 036 1030 g BUILTIN : 11 
: 758 1032 2 ACTUAL COUNT | : 11 
: 739 1033 : NULLPARAMETER; | : 1 
; 3 4 
Hg toc feat t 
: 763 1037 2 CLI_REQ_ BLOCK : BLOCK CCLISC_SRVDESC, BYTEJ, ! A CLI request block : lé 
: 764 1038 2 RETORN_STATUS : BLOCK (4, BYTE), : lé 
; 765 1039 2 TRANSLATION_ATTRIBUTES, : le 
: 766 1040 2 LOGICAL_NAME_ATTRIBUTES od 716 
: rer + og 3 SPECIAL_ITEM_LIST : VECTOR (7); ! Special item List : 4 
i 985 1048 3 46 HB} 
; ooy ee § Check for proper number of arguments. | : if 
Ps :°= ole 
; or 1046 2 i le 
ee 1047 2 IF ACTUALCOUNT() LEQU 1 er 
3; 774 1048 2 OR ACTUALCOUNT() GTRU 5 3 
3; 975 1049 2 HEN Fae 
; 776 1990 2 RETURN LIBS$_WRONUMARG; : 1s 
: 778 1052 ; r | 71 
is 279 105 ! Initialize CL1 Command request block pecount 9 for the differences er 
|; 780 1054 2 ! between creating/modifying a logical name and deleting one. 3 ¥ 
Bie ee ante 
: ele 
3; fe 1057 CHSFILL (0, CLISC_SRVDESC, CLI_REQ BLOCK); | 14 
> 784 1058 CLI_REQ_BLOCK CCLTSB_ROTYPE) ="CLISK CLISERV; | fet 
: 785 1058 CLITREQ"BLOCK CCLISWISERVCOD] = CLISR_CREALOG; | ay 
: FBS 1061 3 t6 | 31 
; 788 1066 ! Move in the logical name, the equivalence string, and the logical er 
3; 789 106 ! mame table name. | 3 i 


Bete Sie eS ee ees ieee ee | 
LIBS CALLBAC LIBSCLI_CALLBACK = CLI Callback Interface Proce 18-5e -Sep-1 :3 AX-11 Bliss-32 V4.0-74 Page 21) i 
| oe et LIBSSET“LOGICAL = set supervisor mode logical n 1 Sep-1 382 9¢: $6: 33 VMSLIB_SRCILIBCLICAL 882;1 . (3) VO04- 
3; 790 1064 ! Give an error if the logical name is omitted. | 21g 
3 el 1302 a Give an error if neither VALUE nor iTmest is supplied. : } 
F 79 106? 5 | 4 
3; 794 1068 IF .LOGNAME EQL 0 | $7 
; oe 1069 | : i¢ 
s 1970 RETURN LIBS$_INVARG; eM 
: 198 107¢ MOVEDESC ( .LOGNAME, CLI_REQ_BLOCK CCLISQ_NAMDESCJ ); | ; is 
: go Ore IF NULLPARAMETER(VALUE) AND NULLPARAMETER(ITMLST) ; ¢ 
: 80 1076 RETURN LIBS_INVARG; : 1 
; 80 1077 : 1¢ 
; rin 138 IF NOT NULLPARAMETER( VALUE) : 4 
; 80 1980 2 MOVEDESC ( .VALUE, CLI_REQ_BLOCK CCLI$Q_VALDESC) ); : if 
: 808 1082 § + : 12 
; 809 1083 2 i NOTE: : 1é 
; gi9 i Oae § If both VALDESC and ITMLST are specified, DCL will ignore VALUE. : \¢ 
: B12 1086 2 3: Vg 
; 813 1087 2 ‘+ z 14 
; 814 1088 2 i Move in the table name if pres 3 ig 
> 815 1089 2 | If not present, DCL defaults to LWMSPROCESS. sis 
> 816 1090 2 Aer 
: 817 1091 2 2 
; 518 18 $ IF NOT NULLPARAMETER( TABNAM) : \s 
: ast ee § MOVEDESC ( .TABNAM, CLI_REQ_BLOCK CCLIS$Q_TABDESCI ); ; \s 
: B22 1096 2 1+ : 1é 
: 823 1097 2 i Move in the address of the item List (if present). 3 i¢ 
> 824 1098 2 i If not present, DCL will create an itemlist from CLI$Q _VALDESC. 2g 
; 825 1099 2 ie eT 
; 826 1100 2 er 
; 827 1101 2 IF NOT NULLPARAMETER(ITMLST) i ie 
; 828 1102 2 rar 
; 829 1103 2 CLI_REQ_BLOCK CCLISL_ITMLST] = .ITMLST; 21s 
> 830 1104 2 Par 
> 831 1105 2 ty : ; 316 
3 S36 1106 2 ! Move in the address of the attributes (if present). | : 14 
: 8 1107 in : 14 
; 834 1108 | 714 
; HH 1193 IF NOT NULLPARAMETER(ATTR) : if 
. o iq 
; 837 1111 CLI_REQ_BLOCK CCLISL_ATTR] = .ATTR; 714 
; 838 116 2 eT 
; 839 1113 + | 2 1 
; 840 1114 ! NOTE: 2 
: «841 1115 § ! If CLISQ_TABDESC, CLISL_ITMLST, and CLISL_ATTR are all 0, si 
; nee 1116 i then DCL"defaults in the attribute LNMSM_CRE 9G, i.e. ef 
; 84 1117 ! the call back looks Like a V3 call back. 3 i 
> B44 1118 - | 71 
; 845 1119 | 21 
: 846 1120 '¢ 3h 
| | 
| 
| 
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LIBSCLI_CALLBAC LIBSCLI_CALLBACK = CLI Callback Interface Proce 1 se -1984 AX-11 Bliss-32 V4.0-74 Page 22 
ye 000 LIBSSET"LOGICAL = set supervisor mode logical n 16: 8ep-1984 98: 36:2 VMSLIB.SR REIL TecLicAL 88251 (6) 
> 847 1121 ' If the caller has specified translation attributes in ATTR 

; 848 11 ¢ i (as opposed to just logical name attributes), this is normally 

; 849 11 i an error. That is because translation attributes should go in 

; 850 1124 i the itemlist. However, as a convenience to RTL users who find 

: 851 1125 i it hard to build itemlists, we allow translation attributes to 

3 b2¢ 1126 i occur if no itemlist is specified. In that case, we have to go 

3 B27 1 f _ through the trouble of building an itemlist for him. 

: 855 1129 

; 828 1180 a ee ene AND NOT NULLPARAMETER(ATTR) 

; 858 1138 BEGIN ! Check for translation ater tputes 

; 859 11 BIND ATTR VECTOR = .ATTR ECTOR(4, BYTE), 

; 860 1134 ATTR_VALUE = .ATTR : LONG; 

; 861 1135 3 

; 86 1136 3 + 

; 86 1137 3 ! The first byte of attributes are logical name attributes. 
| 3 864 1138 3 ! The second he of attributes are translation attributes. 

> 865 1139 3 ! The other 2 bytes are reserved for VMS use. 

; 866 1140 3 l- 

; 867 1141 3 

: 868 1142 3 IF .ATTR_VECTORC1] NEQ 0 

; 869 1143 3 THEN 

; 870 1144 4 BEGIN ! Build special itemlist 

: a7 isez : BIND EQUIV_STRING_DESC = CLI_REQ_BLOCKCCLI$Q_VALDESC] : $BBLOCK; 
; 87 1147 & + ‘ 

> 874 1148 4 ' Create translation attributes from the specified attributes. 
: 875 1149 & = 

: 876 1150 4 

; 877 1151 4 TRANSLATION_ATTRIBUTES=.ATTR_VALUE AND %X*FFOO'; 

; 878 1152 4 

: 879 1153 4 + 

; 880 1154 4 ! Create logical name attributes from the specified attributes. 
; 881 1155 4 !< 

; 882 1156 4 

3 rt W13e 2 LOGICAL_NAME_ATTRIBUTES=.ATTR_VALUE AND 2X'FF'; 

; 885 1159 4 SPECIAL_ITEM_LISTCOJ=LNM$_ATTRIBUTES*16+4; 

; 886 1160 4 SPECIAL-ITEM-LISTC1J=TRANSLATION_ATTRIBUTES; 

; 887 1161 4 SPECIAL_ITEM_ Listhe =0; 

; 888 1196 4 SPECIAL_ITEM_ tet eS =LNM$_STRING*16+.EQUIV_STRING DESCCDSCSW_ LENGTH); 
; 889 1163 4 SPECIAL_ITEM_LISTC4 4}=,EQUIV_ STRING _DESCLDSTSA_ POINTER); 

; 890 1164 4 SPECIAL_ITEM_LIST(5J=0; 

; «891 1165 4 SPECIAL_ITEM_LIST(6)=0; !' no more entries 

; oP 1166 4 

; 89 1167 4 '¢ 

: 894 1168 4 i Store specially revised attributes and item List in 

: 895 1169 4 ' the request block. 

; 896 1170 4 in 

; 897 1171 4 

; 898 11%6 4 CLI_REQ_BLOCKCCLISL_ATTRI= THOeeEM NAME_ATTR {BUTES; 

; 444 aS, : CLITREQ-BLOCKCCLISL_ITMLSTJ=SPECIAL_ITEM_LIST 

; 901 1175 4 END ! Build special itemlist 

: a6 1176 4 ‘ 

; 90 1177 2 END; ! Check for translation attributes 
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| 
1 
L1B$ CALLBAC LIBSCLI_CALLBACK = CLI Callback Interface Proce 1 1b-sep-1 4 73 AX-11 Bliss-32 V4.0-74 Page 23 
tees 6607 LIBSSET-LOGICAL = set supervisor mode logical n 1a-8ep -1 198 96 $6 re VMSLIB.SR ROIL 16CL I teh 88251 ° BS 
| 
5 906 1178 | 57 
: 905 1179 2 !+ 3] 
; 306 1180 | Create or modify the supervisor mode logical name. ; } 
is = Py 
: 908 118 RETURN_STATUS = SYSSCLI (CLI_REQ_BLOCK); 3 le 
; 909 1188 wale: « 3 7 
> 910 1184 2 !+ | 3 
3 313 ibe ! _Adjust error return status, if any. | : } 
3 ay a t4 If WOT «RETURN_STATUS AND (.RETURN_STATUS CSTS$V_FAC_NO)] EQL CLIS$_FACILITY) | : 1 
: 915 1189 RETURN. STATUS = 313 
: 916 1190 BEGIN 3 43 
: 917 1191 SELECTONE .RETURN_STATUS OF 3 33 
; 918 1198 SET 3 13 
: 919 119 CLI$_INVR ary) : LIBS$_NOCLI; 2 133 
> 920 1194 OTHERWISE LIBS"UNECLIERR; 313 
; 921 1195 TES . 35 
3 as6 1196 2 END; 3 13 
3; 92 1197 2 3 13 
; 924 1198 2 RETURN .RETURN_STATUS 3 13 
: 925 1199 2 3 13 
; 926 1200 1 END; ! End of LIBSSET_LOGICAL : 3 
3 13 
3 13 
13 
007C 00000 ENTRY LIBSSET_LOGICAL, Save Re. R3,R4,R5,R6 7 0894 3 13 
56 00000000G 00 9€ 00002 MOVAB LIBSANACYZE_SDESC_R2, R : § 3 
5E 88 AE 9E 00009 MOVAB CASS oat” SP 3 , 33 
01 6C 91 0000D CMP8 (AP), : 1047 s 13 
05 1B 00010 BLEQU 1$ ; 3 15 
05 6c 91 Ba8ig CMPB (AP), #5 : 1048 s 13 
08 1B 0001 BLEQU§ 2$ 3 a 45 
50 00000000G 8F ? hte 1$: nove #LIBS_WRONUMARG, RO ; 1050 : i 
0054 = &F 00 6E m 00 2c OOO TF 23: MOVCS #0, (SP), #0, #84, CLI_REQ_BLOCK 3 1057 : i 
24 =OAE 05 90 $0058 MOVB #5, CLI_REQ_BLOCK : 1058 : 13 
-. & 06 BO 0002C MOVW #6, CLI-REQ_BLOCK+1 ; 1059 ye 
04 AC D3 00 TSTL  LOGNAME™ > 1068 713 
25 13 00 BEQL -_ $ 3 13 
50 04 AC »? 608 MOVL AME, RO : 1072 : 1 
6 16 00039 JSB LOSSANACY SE ~SDESC 3f2 : 21; 
28 =OAE 1 Be Hit MOVW Ri, CLI_REQ-BLOCK? F ; 1; 
2c OA 28 D 03F MOVL R2. cL 1, Rea “BLOCKS : 23; 
4F 5 EY 043 BLBC  RET_STATUS,~7$ ; 31! 
02 6c 1 3a8 CMPB (A py 3: 1074 2 13 
5 (IF 4 BLSSU : 21; 
08 AC 03 4B TSTL (AP) : | 3 13 
la 7 4 BNEQ : | 3s 3; 
1F BLSSU 3 eh 
14 AC O TSTL O(AP) : | re bl 
ge 1 0 BNEQ : | e453 
50 00000000G 8F DO OO0SA 4$: MOVL #LIBS_INVARG, RO ; 1076 3 13 
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| 50 000000006 oeyt #LIBS_NOCLI, RETURN_STATUS 
50 000000006 8F s 


reve MLIBS_UNECLIERR, RETURN_STATUS 
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4 00138 1 
; Routine Size: 313 bytes, Routine Base: _LIBSCODE + 0242 
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LIBSCLI_CALLBAC LIBSCLI_CALLBACK = CLI Callback Interface Proce 18-Se -1984 02:22:3 AX-11 Bliss-32 V4.0-74 Page 6| 
‘Wbe=000 LIBSDELETE_LOGICAL = delete supervisor mode log 14-Sep-19 4 96:56:33 VMSLIB. RESLIBCL ICAL 89251 . H 
: 928 1 9} 1 ZSBTTL ‘LIBSDELETE_ LOGICAL = delete supervisor mode logical name’ 
s ey 1 ¢ 1 GLOBAL ROUTINE LIBSDELETE LOGICAL ¢ ! delete supervisor mode logical name | 
; 930 1205 1 LOGNAME : REF $BBCOCK, ' Logical name string descriptor 
ie 3) 1206 1 TABNAM : REF S$BBLOCK ! table name 
Be. § 1205 1 d= 
; vy 1206 1 
> 934 1207 1 !++ | 
> 935 1208 1 ! FUNCTIONAL DESCRIPTION: | 
: 936 1209 1! 
; 957 1210 1! This routine provides a method by which a non-privileged program can | 
; 98 1e08 3 delete a supervisor mode logical name. The logical name given 2 
; 939 \¢ : lLogname is deleted from the specified or implied logical name table. 0000 
> 941 1214 1! The STRNLOG system service can be used to obtain the value of 
; 94 i413 & & supervisor mode logical names. The routine is equivalent to the 5 
> 94 1216 1! DEASSIGN DCL command. 
> 944 fyi 6 
> 945 1218 1 ! CALLING SEQUENCE: 
: 946 1219 1} 
: +h4 \$s0 : ret_status.wic.v = LIBSDELETE_LOGICAL (logname.rt.dx C,tabnam.rt.dxJ) 
>; 949 \ss6 1 ! FORMAL PARAMETERS: 
; 950 1223 1! 
: «951 1224 1! lLogname.rt.dx - A string, passed by descriptor, which contains the 
> 952 12e5 1! supervisor mode logical name to be deleted. 
; 953 1226 1! Must be present. 
: 954 1227 1! 
: 955 1228 1! tabnam.rt.dx - A string, passed by descriptor, that contains the 
s 936 teacy 4 8 name of the logical name table from which the ; Ro 
s 937 1250 1! Logical name is to be deleted. 
: 958 lest 67 3 If omitted, the logical name is removed from 
; 959 1S36 - 3 the LNMSPROCESS Logical name table. 
; 960 1233 3! 
: 961 1234 1 ! IMPLICIT INPUTS: 
; 962 1235 1! oe : 
; aT 1$36 ! It is assumed that the logical name table specified already exists. 
s 9S 1238 1 ! IMPLICIT OUTPUTS: 
: 966 bo. ae 
: 967 1240 1! NONE 
; 968 1241 1! 
i; 969 124 1 | COMPLETION STATUS: (or ROUTINE VALUE:) | 
; 971 1e4g 1 | SS$_NORMAL Normal successful completion 
; 972 1245 1! SS$_ACCVIO Logname cannot be read 
3 Oro 1246 1! SS$_IVLOGNAM Logname contains more than 63 characters ats 
: 974 1247 1! SS$_NOLOGNAM No such logical name defined or logical name specified 
s 975 1248 1! was declared in executative or kernel mode | 
: 976 1249 1! SS$_IVLOGTAB Invalid logical name table specified 
» OT7 1250 1! SS$_NOPRIV Caller Lacks the necessary privilege to delete 
; 978 tea) 3 the logical name 
; 97 1 26 zB: SS$_TOOMANYLNAM Logical name translation of the table name exceeded 
; 980 teo5 3 3 the allowable depth (10 translations) | 
; «981 1254 1! LIBS$_INVARG Invalid argument 
; 98 1255 1! LIB$_NOCLI No CLI present to perform function 
; 1526 ' | LIBS_UNECLIERR Unexpected CLI Error : 
; «6984 1257 1! LIBS$S_WRONUMARG No arguments specified or more than two specified. 


—_____—— 


] 
m1 | 
BS ALLBAC LIBSCLI_ CALLBACK = CLI Callback Interface Proce 16-Sep-1984 02:22:3 AX-11 Bliss-32 V4.0-74 Page 27) 
yber000"" LIBSDELETE_LOGICAL - delete supervisor mode log 12288871382 96:35:27 VMSLIB’SRETLIOCL TCmL 69251 B 
f 985 1 8 1} | 
3 369 : 26 } SIDE EFFECTS: | 
> 988 1261 1! A supervisor mode logical name is deleted from the specified or 
; 989 1 ¢ 1! implied logical name table. 
| 
: 990 1063 1} 
; Wl 1264 1 !-- | 
: $9 1566 2 BEGIN | 
oe ee te tae | 
; 996 1269 ACTUAL COUNT | 
: 99 1270 NULLPARAME TER; 
: 395 1393 OCAL 
: 1000 1 5g CLI_REQ BLOCK : BLOCK CCLISC_SRVDESC, BYTE], ! A CLI request block 
; 1001 1274 RETORN_STATUS : BLOCK (4, BYTE); 
+: ee | 
> 1004 1077 2! Check for proper number of arguments. 
re ee 
: 1007 1380 3 IF ACTUALCOUNT() EQLU 
; se 138) § — GTRU 
: 1910 1388 : RETURN LIB$_WRONUMARG; 
: Iolg \¢0? § ! Initialize CLI Command request block. 
> 1014 1287 2  CHSFILL (0, CLISC_SRVDESC, CLI_REQ BLOCK); 
; 1015 1288 2 CLI_LREQ_BLOCK CCLT$B_ROTYPE) ="CLISK CLISERV; 
> 1016 1289 : CLIZREQ"BLOCK CCLISWISERVCOD) = CLISR_DELELOG; 
: 1018 1391 5 14 
: 1019 1298 2 ' Move in the logical name. 
$e 
: 1022 1295 2 MOVEDESC ( .LOGNAME, CLI_REQ_BLOCK CCLISQ_NAMDESC) ); 
Ww REG 
: 1025 1298 ; i Move in the table name, if specified. | 
: 1026 it 44 ! If not specified, DCL willd efault in LNMSPROCESS. 
.| nt ie | 
; 109 1302 5 IF NOT NULLPARAMETER(TABNAN) | 
: 1031 1304 $ MOVEDESC ( .TABNAM, CLI_REQ_BLOCK CCLISQ_TABDESC] ); | 
Me 1B, 
: 10 ' BS Delete the supervisor mode logical name. | 
> 1036 1309 é RETURN_STATUS = SYSSCLI (CLI_REQ_BLOCK); | 
: 1038 1311 3 te | 
: 1059 1 I Adjust error return status, if any. 
: 1041 11a IF NOT .RETURN_STATUS AND (.RETURN_STATUS CSTSS$V_FAC_NOJ EQL CLIS_FACILITY) | 
| 


Bess N 1 
LIBSCLI_CALLBAC LIBSCLI_CALLBACK = CLI Callback Interface Proce 16-Sep-1984 :22:3 AX-11 Bliss=-32 V4.0-74 P wef] 
Oe pO" LIBSDELETE LOGICAL = delete supervisor mode toe lacsenel9Re $$.59:47  Fumscreesnesiaecy tear S251 _ B 
; 1048 1315 THEN 
> 104 1 if RETURN_STATUS = 
> 1044 131 BEGIN ~ 
> 1065 1318 SELECTONE .RETURN_STATUS OF 
E 1046 1319 ET | 
: 1047 1320 CLI$ INVREQTYP) : LIBS$_NOCLI; 
> 1048 1321 OTHER LIBS"UNECLIERR; | 
> 1049 1 é TES 
: 1050 1 3 END; 
: 1051 13 4 | 
: 105¢ 1325 2 RETURN .RETURN_STATUS 
> 105 1326 2 
> 1054 1327 3 END; ! End of LIBSDELETE_LOGICAL 
007¢ 00000 ENTRY LIBSDELETE_LOGICAL, Save R2,R3,R4,R5,R6 : 1202 
56 000000006 00 9E 00002 OVAB LIBSANALYZE_SDESC_R2, R6 ; 
SE AE 9E 00009 MOVAB -B4(SP), SP : 
6C 95 0000D TSTB CAP?) + 1280 
05 13 OO00F BEQL ss : 
02 6C 91 00011 CMPB ss CAP), - #2 + 1281 
08 1B 00014 BLEQU 2$ : 
50 000000006 8F v0 00016 1$: OVL #LIB$_WRONUMARG, RO > 1283 
0054 = 8F 00 6E 00 2c OOO1E 2$: MOVCS #0, (SP), #0, #84, CLI_REQ_BLOCK + 1287 
6E 05 90 90026 MOVB #5, CLI_REQ_BLOCK + 1288 
01 AE 07 BO 00029 MOVW #7, CLITREQ"BLOCK+1 : 1289 
50 04 AC dO 90020 MOVL  LOGNAME? : 1295 
66 16 00031 JSB LIBSANALYZE SDESC_R2 : 
04 AE 51 BO 00033 MOV RI. CLI_REQ~BLOCK?4 : 
08 AE 52 DO 00037 MOVL  R2 cL ree “BLOCK+8 : 
46 50 €9 00038 BLBC ~—«RET_STATUS, “5$ F 
02 6C 91 0003E CMPB (A i oN > 1302 
16 1F 00041 BLSSU : 
08 AC D5 00043 TSTL CAP) : 
11 13 00046 BEQL 6s 3$ F 
50 08 AC DO 00048 MOVL § TABNAM > 1304 
66 16 0004C JSB LIBSANALTZE ~SbESt CR : 
“g a GB aa Roe Cae acaeaee = 
3 26 pg b0086 BLBC  RET_STA apt o¢ ; | 
SE DD 00059 3$: PUSHL SP ~ + 1309 
000000006 00 01 FB 005 CALLS #1, SYS CL : 
50 £8 0006 BLBS § RETURN STAI 5$ : 1314 | 
03 50 ot 19 Eb 0065 CMPZV Fie. at RETURN STATUS, #3 : | 
00038822 8F 30 pI a9ec CPL R TURN_STATUS, #231458 > 1320. 
50 000000006 8F pO 90075 ROVL —ALIBS_NOCLI, RETURN_STATUS Bag 
50 000000006 8F 00 00070 4$: MOVL § #LIBS_UNECLIERR, RETURN_STATUS : 
04 00084 5$: RET : 
} 
| 
| 


; Routine Size: es bytes, Routine Base: _LIBSCODE + 0378 


voor dbs-"* PA TIBSDELETE LOGICAL S“delete supervisor made (og f-stect 9h 93:56:29 - WimsLdeesnesii8cl ita -082;1 


a - -—— ~—- } 


2 
LIBSCLI_CALLBAC LIBSCLI_CALLBACK = CLI Callback Interface Proce 1s 1984 02:22:35 AX-11 Bliss-32 V4.0-74 Page 30) 
yOe~000 LIBSDISABLE_CTRL = disable CLI out-of-band char 14-Sep-19 4 99:55:23 WMSLIB SREILIOCL ICAL B92: 1 ’ (8) | 
; 1056 1328 1 ZSBITL "LIBSDISABLE_CTRL = disable CLI out-of-band character(s) handler’ 
; 1057 1329 1 GLOBAL ROUTINE LIBSBISABLE_CTRL ( ! disable CLI out-of-band 
; 1058 1330 1 DISABLE_MASK : REF VECTOR C, LONG) ! disable bit mask 
: 1959 1331 | PREVIOUS_MASK : REF VECTOR C, LONG i previous enable bit mask 
; 1061 1 : 1 
: 108 1334 1 !44 
: 1307 : : : FUNCTIONAL DESCRIPTION: 
>; 1065 1337 1! This routine disables CLI processing for out-of-band the characters 
3: 1066 1338 1! identified by DISABLE_MASK. When normal CLI processing for one or 
>; 1067 137% ie. more out-of-band characters is disabled, a user program can intercept 
3; 1068 1340 1! and respond to them. There are no privilege requirements for calling 
3 1908 ed } this routine. 
; 1071 1303 1! Currently, this routine supports disabling of CLI out-of-band 
: 1072 1344 1! precess ine for CTRL=-T and CTRL-Y when the DCL CLI is in use, and for 
; 1073 1345 1! TRL“Y¥ when the MCR CLI is in use. The macro $LIBCLIDEF defines the 
3; 1074 1346 1! two masks used for disabling processing for these two out-of-band 
; 1075 1347 1! characters as follows: 
; 1076 1348 1! IBSM_CLI_CTRLT mask for CTRL-T 
; 1077 1349 1! LIBSM_CLI_CTRLY mask for CTRL-Y 
: 1078 1390 1? If the masks are Vogically or'd together, processing for both 
; 1079 1351 1! out-of-band characters will be effected. 
; 1080 by ae 
>; 1081 1353 1 ! CALLING SEQUENCE: 
3; 1082 1354 1! : 
: 1083 1339 7 3 ret_status.wlc.v = LIBSDISABLE_CTRL (disable_mask.rl.r 
> 1084 13556 1 ! + previous_mask.wl.r ] ) 
; 1085 te Se 
: 1086 1358 1 ! FORMAL PARAMETERS: 
3; 1087 1359 1! 
; 1088 1360 1! disable_mask.rl.r - the mask controlling which out-of-band 
; 1089 136) 7 } characters the CLI should ignore. Values | 
; 1090 1362 1! should be selected from one of, or the logical | 
: 1091 1363 1! OR of more than one of: 
: 1092 1364 1! LIBSM_CLI_CTRLT 
3: 1093 1365 1! il CLI_CTRLY 
: 10% 1366 ! These symbols are defined in S$LIBCLIDEF. 
3; 1096 1368 1! previous_mask.wl.r - a longword into which will be stored a mask 
3; 1097 1369 1! having the same format as disable_mask, but 
3; 1098 1370 1! which represents the enabled state for all 
; 1099 lor) aS out-of-band character processing before 
; 1100 1326 zz disable_mask is applied. 
3: 1101 1375 1! 
3 1108 1374 1 ! IMPLICIT INPUTS: 
3; 110 1375 1! 
: 1104 1376 1! NONE 
: 1105 ae Bo 
; 1106 1378 1 ! IMPLICIT OUTPUTS: 
3 1107 1379 1! 
: 1108 1380 1! NONE 
3; 1109 1381 1! 
: 1319 1336 : COMPLETION STATUS: (or ROUTINE VALUE:) 
3 1112 1384 1! SS$_NORMAL Normal successful completion 


LIBSCLI_CALLBAC LIBSCLI_CALLBACK = CLI Callback Interface Proce 18. sf -1984 AX-11 Bliss-32 V4.0-7 Page 31. 
voe2000 LIBSDISABLE_CTRL - disable CLI out-of-band char 14- Sep-1984 98: 36:23 VMSLIB.SRC LIBcLI CAL. B82; 1 (8) 
85 : LIBS_INVARG Bisepie mask has an unrecognized bit set 
4 : LIB$_NOCLI o CLI Bresent to perform function 
ff LIBS_UNECLIERR Seenbaeten CLI Error 
89 i SIDE EFFECTS: 
33) ! CLI out-of-band processing of one or more characters is disabled. 
338 ine 
5 BEGIN | 
BUILTIN 
NULLPARAMETER; 


CLI REQ BLOCK : BLOCK Pegi Syvese. BYTE], ! A CLI request block 
RETOR RN_STATUS : BLOCK (4, BYTE] 


'+ 
Initialize CLI Command request block. 

CHSFILL (0, CLISC_SRVDESC, CLI_REQ BLOCK); 
CLI_REQ BLOCK CCLY$B_ROTYPE) ="CLISK CLISERV: 


CLI-REQ_BLOCK CCLI$W_SERVCOD] = CLI$R_DISAO 
CLI-REQ ~BLOCK CCLISL-NEW_MASK] = AISABLE AMASK C0]; 


+ 
Request CLI out-of-band processing be disabled. 


RETURN_STATUS = SYSSCLI (CLI_REQ_BLOCK); 


+ 
! If requested, return previous out-of-band enabled mask. 
; It may be good. 


IF NOT NULLPARAMETER (2) | 
PREVIOUS_MASK [OJ = .CLI_REQ_BLOCK CCLI$L_OLD_MASK); 


Be Se Se Oe Be Oe Se Se Ge Ge Se Se CHS S6 Se Se SESE SESE SESE SES Seas Se Se Se eeeeesse 


'¢ 
g Adjust error return status, if any. 


ee »RETURN_STATUS AND (.RETURN_STATUS CSTS$V_FAC_NO) EQL CLIS_FACILITY) 
RETURN_STATUS = 
SELECTONE .RETURN_STATUS OF 


SET 
CLI$ Ses > LIBS. ere 
CLI$ yy eh LIBS_ 

OTHER 

TES 

END; 


ADAAAAA MINT & BS BS BB EEE WANNA AIInnopononononononons 2 4 So 
MEUM OO OONOUES WN 0 OONOUES WN 0 ODNOUEWN $0 ODNAOUE WN“ OODONOULSW 


NOCLI 
LIB$ ~UNECLIERR: 


el ee ek ek te ed ed ed ed nd ad od dd dd 8 a — 3 9 
ee a ec me ec ee ce me De ee ee a ee me DD DD De De ee ae od ed ed 


PORSRIGNIWINI NINA ADI APP PYNIAININININININININPINININININININPINPINPIPINININPIPPININININIDY) 2 SS OS SS 


Bee Se Se Se Ge Be Ge Be Se Se Se Fe Se Ge Se Ge Oe Ge Se Be Bs ~~ 


RETURN (.RETURN_STATUS) ; 


Be Be Oe Be Oe Oe Be Oe Be Be ee Be Bee Be Ge Se Be SH Se Se Se Se Se Se Se Se Seas Se oe FFs Se Se Se oe Se Be Se Fe Se Se Se ae SHE Se Se Se Se ee Se Se See Seas 
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LIBSCLI_CALLBAC LIBSCLI_CALLBACK = CLI Callback Interface Proce 1s ep- 13 AX-11 Bliss-32 V4.0 Page 32 
yOe~000 LIBSDISABLE_CTRL = disable CLI out-of-band char 14- He 38 98: 36:29 VMSLIB.SR RCIL IBCL ICAL. "3 2;1 ° BS 
; 1170 144g 2 ; 
: 1171 1443 1 END; ! End of LIBSDISABLE_CTRL : 
003c¢ 00000 SENTRY LIBSDISABLE CTRL, Save R2,R3,R4,R5 3 1329) ; 
SE AC AF 9E€ 00002 MOVAB <84(SP), SP : ; 
0054 8F 00 6E 00 2C 00006 MOVCS #0, (SPS, #0, #84, CLI_REQ_BLOCK ; 1408 | ; 
6E 05 90 O00F MOVB = #5, CLI_REQ_B > 1409 | ; 
01 AE D BO 0001 MOVW = #18 CLT'R ReOe BLO + 1410 ; 
04 AE 04 BC 00 00015 MOVL § a@DISABLETMASR, ett * REQ _BLOCK+4 + 1411) ; 
5E DD OOOIA PUSHL SP : 1416 ; 
000000006 00 01 FB 9001¢ CALLS #1, SYS$CLI : : 
02 6C 91 900¢ CMPB CAP), #2 > 1422 ; 
OA 1F 00026 BLSSU ‘1 : 
08 AC 05 00028 TSTL 8(AP) : 
05 13 00028 BEQL ‘1 ; 
08 BC 08 AE D0 0002D MOVL  CLI_REQ_BLOCK+8, @PREVIOUS_MASK > 1424) 
30 50 £8 000 é 1$ BLBS RET TORN STATUS > 1429. 
03 50 0c 10 ED 0003 CMPZV , #72, RETURN, STATUS, #3 : 
29 12 0003A BNEQ is.” : 
000388CA BF 50 D1 0003C¢ CMPL = RETURN_STATUS, #231626 3 1435) 
08 12 00043 BNEQ 2$ : 
50 000000006 8F dO 00045 MOVL #LIBS_INVARG, RETURN_STATUS ; 
00038822 = BF 50 D1 0004D 28: CMPL = RETURN_STATUS, #231458 > 1436 
08 12 00054 BNEQ ; 
50 000000006 &F dO 90056 MOVL #LIBS_NOCLI, RETURN_STATUS ; 
50 000000006 8F DO O005E 3s: MOVL §§ #LIBS_UNECLIERR, RETURN_STATUS : 1437 
04 00065 4$: RET > 1443 


; Routine Size: 102 bytes, Routine Base: _LIBSCODE + 0400 


Se ean ees ate ee ee = 


re ¢é 
LIBSCLI_CALLBAC LIBSCLI_CALLBACK = CLI Callback Interface Proce 16-Sep-1984 02:22:35 AX-11 Bliss-32 V4.0-74 Page 33 
v04-000 LIBSENABLE_CTRL = re-enable CLI out-of-band cha 1228007 382 08:35:23 _ CVMSLIB.SRC (iecl tear 89251 . (9) 
ZSBTTL ‘LIBSENABLE CTRL = re-enable CLI out-of-band character(s) handler’ 
GLOBAL ROUTINE LIBSENABLE_CTRL ' re-enable CLI out-of-band 
ENABLE MASK : REF VECTOR C, LONG] ! enable bit mask 
is PREVIOOS_MASK : REF VECTOR C, LONG) ! previous enable bit mask 


'e¢ 


i FUNCTIONAL DESCRIPTION: 


This routine re-enables CLI processing for out-of-band the characters 

identified by ENABLE_MASK progueente after such processing has been 
disabled by a call to LIBSDISABLE CTRL. There are no privilege | 
requirements for calling this routine. 


Currently, this routine poerts re-enabling of CLI out-of-band 
ee. for CTRL=T and CIRL-Y when the DCL CLI is in use, and for 
TRL~Y when the MCR CLI is in use. The macro $LIBCLIDEF defines the 
two masks used for enabling processing for these two out-of-band 
characters as follows: 

LIBSM_CLI_CTRLT mask for CTRL-T 

LIBSM_CLI_CTRLY mask for CTRL-Y 
If the masks are logically or'd together, processing for both 

l be effected. 


CALLING SEQUENCE: 


ret_status.wic.v = LIBSENABLE_CTRL (enable_mask.rl.r 
» previous_mask.wl.r ] ) 


FORMAL PARAMETERS: 
enable_mask.rl.r - the mask controlling which out-of-band 


characters the CLI should process. Values. 
should be selected from one of, or the logical 


SSR SS So lV VLVVSlVVwVV L020 0909 099 NAINA 
MEUM =O OONAUEWN OO OODNAUESWN—OOONOULSW 
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eee ee ee ee ee ee ee ee eee 
Se Se ee ee ee ee et ee a oe a ee ee 
D000 00000 0 O000 0000 00 00 00 00 00 09 09 SINSINIINININNNINIOAOAAAAAAAAAUUNNUNNN ER REE OD 
SODNAUNEWN @OODNAUEWN OO OCONAUESWN QOD DNAUNEWRODDNGUESWNHOODNAUE we 


Be Oe Se Se Be Be Be Be Oe Be Be Be Be Oe Be Oe Se FHS BH Be Be Oe Be Be FHSS SS Os Oe OH OH OF Os Oe Oe Oe OH Os Oe Os Oe SHOE Se Oe Oe OHS SESE BH Os Oe Oe Oe ee 


07 OR of more than cre of: 

08 LIBSM_CLI_CTRLT 

09 LIBSM_CLI_CTRLY 

$19 These symbols are defined in S$LIBCLIDEF. | 
212 previous_mask.wl.r - a longword into which will be stored a mask | 
213 having the same format as enable_mask, but 
214 which represents the enabled state for ail 

215 out-of-band character processing before 

$18 enable_mask is applied. 

$18 IMPLICIT INPUTS: 

$30 NONE 

221 

222 IMPLICIT OUTPUTS: 

225 

Sse NONE 

$58 COMPLETION STATUS: (or ROUTINE VALUE:) 

228 SS$_MORMAL Normal successful completion } 

229 LIBS_INVARG Enable_mask has an unrecognized bit set 


LIBSCLI_CALLBAC $CLI ALLBACK - CLI Callback Interface Proce 18-se Sep-1984 73 AX-11 Bliss-32 V4.0-74 Pa 4) 
VOee0b0 SENABLE_CTRL = re-enable CL! out-of-band cha 1 ~8ep-1984 9¢: $6: #3 VMSLIB Shea EoCN tem 6$251 - a 
NOCLI No CLI present to perform function 


Wino 


SIDE EFFECTS: 


C 

L 

' LIBS_N 

ties -UNECLIERR Unexpected CLI Error 
| 

CLI out-of-band processing of one or more characters is enabled. 
i 


BEGIN 


BUILTIN 
NULLPARAMETER; 


| 
CAL | 
EL 1_REQ BLOCK : BLOCK Yate SuvOEsc.. BYTE], ! A CLI request block 
RETORN_STATUS : BLOCK (4, BYTE] 


14 
- Initialize CLI Command request block. 

CHSFILL (0, cLyse SAVDESC CLI_REQ BLOCK); 
CLI_REQ_BLOCK CCLT$B_ROTYPE) ="CLISK CLISERV:; 


CLI-REQ_BLOCK CCLIS$W_ SERVCOD) = CLISR ENABOOB; 
CLI-REQ_BLOCK CCLISL-NEW_MASK] = .ENABLE AAAS C0); 


‘+ 
} Request CLI out-of-band processing be enabled. 


RETURN_STATUS = SYSSCLI (CLI_REQ_BLOCK); 


MVImnwniu WN.ANIAINWA NA 
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1 
34 ' If requested, return previous out-of-band enabled mask. 
C3 HH ;_It may be good. 
66 37 IF NOT NULLPARAMETER (2) 
67 38 THEN 
oe is PREVIOUS_MASK (0) = .CLI_REQ_BLOCK CCLI$L_OLD_MASK]; 
270 41 '+ 
$f! 4g « Adjust error return status, if any. 
218 one a -RETURN_STATUS AND (.RETURN_STATUS CSTSS$V_FAC_NO) EQL CLIS_FACILITY) 
275 546 RETURN_STATUS = 
276 547 N 
277 548 SELECTONE .RETURN_STATUS OF 
278 549 T 
279 550 CLI$ eC, LIBS_ suyaes: 
280 551 Clls. ry lll LIBS$"N 
281 338 LIB$~ ~UNEELIERR: 
see 55 
8 554 END; 
284 555 
285 556 RETURN (.RETURN_STATUS); 
286 557 


: 7 
H 2 
LIBSCLI_CALLBAC LIBSCLI_CALLBACK = CLI Callback Interface Proce 16-Sep-1984 02:22:3 AX-11 Bliss-32 V4.0-74 P 35. 
bOe obO LIBSENABLE_CTRL = re-enable CLI out-of-band cha 137808-1 3b 9:88:33 VMSLIB.SRCILIBCLICAL.B 2:1 — (9) | 
> 1287 1558 1 END; ! End of LIBSENABLE_CTRL | : 
: 
bet 
003¢ 00000 .ENTRY LIBSENABLE_CTRi, Save R2,R3,R4,R5 ; asl F 
5€ AC AE 9E 00002 MOVA -84 (SP) : $ 
0054 8F 00 6E 09 2C 9006 movcS #0, (SPS, #0, #84, CLI_REQ_BLOCK 3; 1523} : 
6E 85 90 o000r MOVB #5, CLI_REQ BLOCK : 1524, : 
01 AE OE 80 99011 mOoVW #14, CLT REO_BLOCK+1 : 1325 ; 
04 AE 04 BC D 15 MOVL § @ENABLE_MASK> CLI_REQ_BLOCK+4 + 1526 F 
SE DD BO0iA PUSHL + 1531 
000000006 00 01 FB O01¢ CALLS #1, SYSS$CLI : 
02 6C 91 000 CMPB AP), #2 + 1537 
OA 1F 00026 BLSSU_1$ : 
08 AC D5 00028 STL BAP) : 
05 13 00028 BEQL 1$ : | 
08 BC 08 AE D0 0002D MOVL § CLI_REQ_BLOCK+8, @PREVIOUS_MASK : 1539) 
30 50 £8 900 : 1$: BLBS = RETORN STATUS > 1544 
03 50 Te 19 ED 00035 CHPZV #16, #12, RETURN, STATUS, #3 rs 
000388CA BF g3 Os 0008¢ CMPL - RETURN.STATUS, #231626 : 1550! 
08 12 0004 BNEG : | 
50 000000006 8F p0 90045 MOVL #LIBS_INVARG, RETURN_STATUS ; | 
00038822 8F 50 D1 0004D 28: CMPL §_ RETURN_STATUS, #231458 : 1551 | 
08 12 00054 BNEQ ; 
50 000000006 8F 00 90036 MOVL #LIB$_NOCLI, RETURN_STATUS ; 
50 000090006 8F D0 0005E 3$: MOVL § #LIBS_UNECLIERR, RETURN_STATUS : 1552 
04 00065 4$: RET : 1558 
; Routine Size: 102 bytes, Routine Base: _LIBSCODE + 0 


466 


2 
LIBSCLI_CALLBAC LIBSCLI_CALLBACK = CLI Callback Interface Proce 1h-s6 1984 02:22:3 AX-11 Bliss-32 V4.0-74 Page 36 L1B! 
voe=000 BSSBUILD_SYMBOL_NAME = Build a symbol name st 14-Sep-19 4 9:35:23 VMSLIB. ReSLiBcL LCAL B92: 1 . 05. 1-01 
89 59 ZSBITL "LIBSSBUILD_SYMBOL_NAME = Build a symbol name string’ 
90 60 ROUTINE LIBSSBUILD SYMBOL_NAME ( ! build a symbol name string 
91 61 SYMBOL: REF BLOCK f BYTE), ! input symbol string descriptor 
S 6¢ DYNSTR: REF BLOCK BYTE], } ys string descriptor 
4 63 _ CLILSYMBOL: REF BLOCK C, BYTE i CLI symbol string descriptor 
9 65 
9 6 le¢ 
: ' FUNCTIONAL DESCRIPTION: 
g 9 Using the string pointed to by SYMBOL, LIBS$BUILD_SYMBOL_NAME builds a 
0 70 dynamic eyeing pointed to by CLI_SYMBOL, which has been uacesee and 
0 7i has trailing (anks deleted. The strin pointed to by SYMBOL is also 
0 i tested for validity as a symbol name; the first character must be 
0 7 alphabetic or $ or _, there must be less than 255 characters in the name 
74 (trailing blanks excluded), and there must be at least one non-blank 
fe character in the name. | + 
7 SCRATCH is a string descriptor into which the actual descriptor for 
78 the dynamic string will be written. The calling procedure must use 
ie this descriptor to deallocate the dynamic string. st 
4 If this routine detects an error after it has allocated the dynamic 


gtring, it will deallocate the dynamic string thus freeing its caller 
from that responsibility. 


CALLING SEQUENCE: 
ret_status.wic.v = LIBSSBUILD_SYMBOL_NAME (symbol.rt.dx, 
dynstr.wt.dx, 
cli_symbol.wt.dx) 
FORMAL PARAMETERS: 


symbol.rt.dx - A string. passed by descriptor, which contains the 
original symbol name. 


PIPIMIMININONYD 2 OOO 


oO 


dynstr.wt.dx -A string descriptor into which the descriptor for the 
actual dynamic string used to contain the converted 
symbol name will be written. The calling procedure 
aver use this descriptor to deallocate the dynamic 
string. 


WANA nor 


------——- -—- 


cli_symbol.wt.dx - A string, passed by descriptor, into which the 
3 
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processed symbol name will be placed. This routine 
creates a new dynamic string in this descriptor: the 
contents of the descriptor upon entry are overwritten. 

* 0? IMPLICIT INPUTS: 

44 +4 LIBSAB_UPCASE the address of an upcase translation table. 

341 11 IMPLICIT OUTPUTS: 

345 18 

34 1 NONE 

344 14 

345 15 COMPLETION STATUS: (or ROUTINE VALUE:) 


d 2 
LIBSCLI_CALLBAC LIBSCLI_CALLBACK = CLI Callback Interface Proce jo~gen= 138% Oe:s 735 AX-11 Bliss-32 ef ae 
v04-000 LIBSSBUTLD_SYMBOL_NAME = Build a symbol name st 14-Sep-1984 13:27:47 VMSLIB.SRCIJLIBCLICAL.832;1 
: 1346 1616 1! 
: 1347 Ol, 63 UF SS$_NORMAL Normal successful completion 
; 1 re 1913 : LIBS_INVARG Ss et aene contains more than 255 characters or is 
; ; a anks 
; 1350 1620 1! LIBS_INVSYMNAM Symbol name does not begin with a letter 
> 1351 1621 1! LIBS_INSVIRMEM Insufficient virtual memory for dynamic string 
; 1388 1° ¢ : } Other completion stati from LIBSANALYZE. SDESC. 
: 1354 1626 1! 
; 1355 1625 1 ! SIDE EFFECTS: 
; 1328 1626 1! 
3; 1397 1627 1! WARNING: 
; 1358 1628 1! Although this procedure performs some checks on the validity of 
; 1359 1629 1! syabet names passed to it, some symbol name considered valid by 
: 1360 1630 1! this procedure will be considered invalid by DCL. 
3: 1361 1631 1! 
: 1368 1636 1 !-- 
3: 136 16335 1 
: 1364 1634 BEGIN 
>; 1365 1635 
>; 1366 1636 LOCAL 
: 1367 1637 ADDRESS, ! a string address 
; 1368 1638 2 LENGTH : WORD ' a string length 
> 1369 1639 2 IN_PTR, OUT_PfR, i two pointer variables 
; 1370 1640 $ STATUS; ! a return status value 
3; 1371 1641 
; 1376 1986 2 
; 137 1643 2 
>; 1374 1644 § '+ 
; 1375 1645 ! Gather information about snout symbol name string 
3; 1376 1646 ! and build pointer input symbol name string. 
3; 1377 1647 !- 
: 1378 1648 
: 1379 1649 2 STATUS = LIBSANALYZE_SDESC_R2 (.SYMBOL; LENGTH, ADDRESS ); 
; 1380 1650 2 IF NOT .STATUS THEN RETURN .STATUS; 
; 1381 1651 2 IN_PTR = CHSPTR( .ADDRESS, .LENGTH - 1 ); 
: 1382 1606 2 
; 1383 1653 2 !+ 
> 1384 1654 § ! Work backwards from the end of the spring to locate 
>: 1385 1655 ! the first non-blank character; i.e. locate beginning 
3; 1386 1656 ! of the trailing blanks. 
3; 1387 1657 le 
>; 1388 1658 LENGTH = 1 + 
3 1382 1659 BEGIN 
: 1390 1660 DECR J FROM .LENGTH - 1 TO 0 DO 
: 1391 1661 4 BEGIN 
3; 1392 1666 4 IF CHSRCHAR’ .IN_PTR ) NEQU ZC* * THEN EXITLOOP .J; 
3 1393 1663 4 IN_PTR = CHSPLUST .IN_PTR, -1 ); 
3 1394 1664 4 END 
3; 1395 1665 2 END; 
: 1396 1008 IF .LENGTH EQLU 0 OR .LENGTH GTRU 255 THEN RETURN LIBS_INVSYMNAM; 
3 Hf. 1668 '¢ 
3; 1399 HS 5 44 ' Allocate a dynenic string and setup CLI symbol name 
3 e's 1970 string descriptor. 
3; 1402 1672 DYNSTR CDSC$B_CLASS] = DSCSK_CLASS_D; 
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CALLBACK = CLI Callback Interface Proce 16-Sep-1984 06:36:35 AX=-11 Ot legr te ef) ee 
TLD_SYMBOL_NAME = Build a symbol name st 14-Sep-1984 15:27:4 VMSLIB.SRCJLIBCLICAL.B52;1 

DYNSTR CDSCS$B_DTYPE] = DSCSK_DTYPE_T; 

DYNSTR [CDSC$W-LENGTH] = 0; 

DYNSTR CDSCSA~POINTER] = 0; 

STATUS = LIBSSGET1_DD( LENGTH, .DYNSTR ); 

IF NOT .STATUS THEN RETURN .STATUS; 

CLI_SYMBOL EDSC$A_POINTER = .DYNSTR COSCSA_POINTERI; 

CLIZSYMBOL CDSC$WULENGTH] = . TH; 


$ D3 
OUT_PTR = CHSPTR( .CLI_ SYMBOL CDSCSA_POINTER) ); 
CHSTRANSLATE( LIBSAB_UPCASE, .LENGTH, .IN_PTR, %C° ', .LENGTH, .OUT_PTR ); 
+ 
: Check for reasonable first character in symbol name. 


IF (CHSRCHAR( .OUT_PTR ) LSSU %C°A' OR CHSRCHAR( .OUT_PTR ) GTRU %C°Z") AND 
— -OUT_PTR ) NEQU %C"$" OR CHSRCHAR( .OUT_PTR ) NEQU %C°_") 


I 
U 

ir: 

Upcase the symbol name. 

" _IN_PTR = CHSPTR( .ADDRES 
2 
GIN 

LIBSSFREE1_DD( .DYNSTR ); 

3 RETURN LIBS_INVSYMNAM; 
3 ND 
2 SE 
§ RETURN SS$_NORMAL; 
1 END; ! End of routine LIBSSBUILD_SYMBOL_NAME 


OOFC 00000 LIBSSBUILD_SYMBOL_NAME : 
WORD Seve De -R5.A4 RS MOAT 


SE 04 2 0000 SUBL * 
50 04 AC 00 0000 OVL SYMBOL, RO 
000000006 00 16 00009 JSB LIBSANALYZE_SDESC_R2 
53 52 D0 0000F MOVL , R3 
6E 51 D0 0012 MOVL R1, LENGTH 
41 50 &9 001 BLBC STATUS, 4$ 
32 0018 MOVZWL LENGTH, R2 
5 C 0018 ADDL2 ADDRESS, R2 
0 1 DECL N_PTR 
51 6f ¢ 000 MOVZ2WL LENGTH, J 
07 11 000 BRB 
20 91 00 1$ CMPB ss CIN_PTR), #32 
if 8 BNEQ 3$ 
D A DECL. _IN_PTR 
F6 1 6 C 28 SOBGEQ J,71 
51 :2 F NE GL wi, R1 
6E 51 1 A oT 3 ADDWS #1, R1, LENGTH 
62 1 BEQL 
OOFF 8F ge a CMPW NGTH, #255 
B 1A D BGTRU 
56 08 AC dO F VL DYNSTR, R6 


: 
: 
: 
; 
; 
; 
: 
| 


2 
LIBSCLI_CALLBAC LIBSCLI_CALLBACK = CLI Callback Interface Proce 1b-se 1984 02:22:3 AX-11 Bliss-32 V4.0-74 Page 39 
Oe ob0 LIBSSBUTLD-SYMGOL NAME ©“Burid a-sembot name ct lockenetoRG $8i5ese7 Poms Teetkesr Peel tee 7es.. 4 . ad) 
66 020E0000 8F DO 00043 MOVL 34471936, (R6) 1 1674) 
04 A6 D4 OO04A CLRL = 4 (RO) : 1675 | 
56 BD 4D PUSHL 6 : 1676. 
04 AE 9F O004F PUSHAB LENGTH : | 
000000006 00 9 FB 0 : CALLS #2 LIBSSGET1_DD : 
49 E9 00059 4$: BLBC STATUS, 9$ : 1677) 
50 0c AC DO 000 MOVL CLI_SYMBOL, RO + 1678 | 
04 Ad 04 Ab DO 0006 MOVL 4(RB), RO) : | 
60 of 80 006 MOVW LENGTH, (RO) + 1679 
3 D0 00068 MOVL ADDRESS, IN_PTR + 1686 | 
5 04 Ad DO 00068 MOVL 4(RO), OUT_PTR + 1685 
000000006 00 20 6¢ 6E 2E O6F MOVTC LENGTH, (IR_PTR), #32, LIBSAB_UPCASE, - + 1686 
6 6f 0078 LENGTH, (OUT _PTRS : 
41 8F 67 91 0007A CMPB ss (OUT_PTR), #65 > 1691 
06 1F 00075 BLSSU  5$ : 
SA OSF 67 91 0008 CMPB = (OUT_PTR), #90 ; 
1c 1B 90084 BLEQU § 8$ : 
24 67 91 0086 5$ CMPB = (OUT_PTR), #36 : 1692 
06 12 0008 BNEQ 6$ : 
SF 8F 67 91 00088 CMPB (OUT_PTR), #95 $ 
11 13 OO08F BEQL = &$ ; 
56 DD 00091 6$ PUSHL + 1695 
000000006 00 01 FB 00093 CALLS #1, LIBSSFREE1_DD : 
50 000000006 8F DO 0009A 7$: MOVL  #LIB$_INVSYMNAR, RO : 1699 
04 000A1 RET : 
50 01 DO OO00A2 8$: MOVL #1, RO : 
04 OO0OAS 9$: RET 3; 1701 


; Routine Size: 166 bytes, Routine Base: _LIBSCODE + O04CC 


WAG 


LIBSCLI_CALLBAC LIBSCLI_CALLBACK = CLI Callback Interface Proce 16-Sep-1984 02:22: AX-11 Blis 4.0-74 
vrata  Besburcy SYMBOL “NAN - Build a symbol name st G-se0-1944 96:36:28 VMSLIB.SRC i ICAL .852;1 (1 
3; 1433 17 ! End of module LIBSCLI_CALLBACK 
. 1232 1588 4 0 EN DOM “ | 
: PSECT SUMMARY | 
: Name Bytes Attributes 
: _LIBSCODE 1394 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
3 Library Statistics 
pay Piven OF Os a ke Eee Symbols ------- Pages Processing 
; File Total Loaded Percent Mapped Time 
: -$255$DUA28: CSYSLIBISTARLET.L32;1 9776 38 0 581 00:01.0 
; COMMAND QUALIFIERS 
; BLISS/CHECK= (FIELD. INITIAL .OPTIMIZE) /NOTRACE/LIS#LIS$:LIBCLICAL/0BJ=08J$:LIBCLICAL MSRC$:LIBCLICAL/UPDATE=(ENH$:LIBCLICAL 
Size: 1394 code + 0 data bytes 
Run Tim 


e: 4 
Elapsed iter 01:07.4 
Lines/CPU Min: 4 90 
Lexemes/CPU-Min: 37106 

ry Used: 171 pages 
Compilation Complete 
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ONFI 


